Question

将这段vb.net代码改成c#.net代码~谢谢

代码如下：
Dim excel As Excel.Application
Dim xBk As Excel._Workbook
Dim xSt As Excel._Worksheet
Dim xRange As Excel.Range
Dim xPivotCache As Excel.PivotCache
Dim xPivotTable As Excel.PivotTable
Dim xPivotField As Excel.PivotField
Dim cnnsr As String, sql As String
Dim RowFields() As String = {"", "", ""}
Dim PageFields() As String = {"", "", "", "", "", ""}

'SERVER 是服务器名或服务器的IP地址
'DATABASE 是数据库名
'Table 是表名

Try
' 开始导出
cnnsr = "ODBC;DRIVER=SQL Server;SERVER=" + SERVER
cnnsr = cnnsr + ";UID=;APP=Report Tools;WSID=ReportClient;DATABASE=" + DATABASE
cnnsr = cnnsr + ";Trusted_Connection=Yes"

excel = New Excel.ApplicationClass
xBk = excel.Workbooks.Add(True)
xSt = xBk.ActiveSheet

xRange = xSt.Range("A4")
xRange.Select()

' 开始
xPivotCache = xBk.PivotCaches.Add(SourceType:=2)
xPivotCache.Connection = cnnsr
xPivotCache.CommandType = 2

sql = "select * from " + Table

xPivotCache.CommandText = sql
xPivotTable = xPivotCache.CreatePivotTable(TableDestination:="Sheet1!R3C1", TableName:="数据透视表1", DefaultVersion:=1)

'准备行字段
RowFields(0) = "字段1"
RowFields(1) = "字段2"
RowFields(2) = "字段3"
'准备页面字段
PageFields(0) = "字段4"
PageFields(1) = "字段5"
PageFields(2) = "字段6"
PageFields(3) = "字段7"
PageFields(4) = "字段8"
PageFields(5) = "字段9"
xPivotTable.AddFields(RowFields:=RowFields, PageFields:=PageFields)

xPivotField = xPivotTable.PivotFields("数量")
xPivotField.Orientation = 4

' 关闭工具条
'xBk.ShowPivotTableFieldList = False
'excel.CommandBars("PivotTable").visible = False

excel.Visible = True

Catch ex As Exception
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
xBk.Close(0)
excel.Quit()
MessageBox.Show(ex.Message, "报表工具", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try

将之转换为c#，谢谢！完成后再加分！

Answer 1

Excel.Application excel = default(Excel.Application);
Excel._Workbook xBk = default(Excel._Workbook);
Excel._Worksheet xSt = default(Excel._Worksheet);
Excel.Range xRange = default(Excel.Range);
Excel.PivotCache xPivotCache = default(Excel.PivotCache);
Excel.PivotTable xPivotTable = default(Excel.PivotTable);
Excel.PivotField xPivotField = default(Excel.PivotField);
string cnnsr = null;
string sql = null;
string[] RowFields = {
"",
"",
""
};
string[] PageFields = {
"",
"",
"",
"",
"",
""
};

//SERVER 是服务器名或服务器的IP地址
//DATABASE 是数据库名
//Table 是表名

try {
// 开始导出
cnnsr = "ODBC;DRIVER=SQL Server;SERVER=" + SERVER;
cnnsr = cnnsr + ";UID=;APP=Report Tools;WSID=ReportClient;DATABASE=" + DATABASE;
cnnsr = cnnsr + ";Trusted_Connection=Yes";

excel = new Excel.ApplicationClass();
xBk = excel.Workbooks.Add(true);
xSt = xBk.ActiveSheet;

xRange = xSt.Range("A4");
xRange.Select();

// 开始
xPivotCache = xBk.PivotCaches.Add(SourceType: 2);
xPivotCache.Connection = cnnsr;
xPivotCache.CommandType = 2;

sql = "select * from " + Table;

xPivotCache.CommandText = sql;
xPivotTable = xPivotCache.CreatePivotTable(TableDestination: "Sheet1!R3C1", TableName: "数据透视表1", DefaultVersion: 1);

//准备行字段
RowFields[0] = "字段1";
RowFields[1] = "字段2";
RowFields[2] = "字段3";
//准备页面字段
PageFields[0] = "字段4";
PageFields[1] = "字段5";
PageFields[2] = "字段6";
PageFields[3] = "字段7";
PageFields[4] = "字段8";
PageFields[5] = "字段9";
xPivotTable.AddFields(RowFields: RowFields, PageFields: PageFields);

xPivotField = xPivotTable.PivotFields("数量");
xPivotField.Orientation = 4;

// 关闭工具条
//xBk.ShowPivotTableFieldList = False
//excel.CommandBars("PivotTable").visible = False

excel.Visible = true;

} catch (Exception ex) {
if (cnn.State == ConnectionState.Open) {
cnn.Close();
}
xBk.Close(0);
excel.Quit();
MessageBox.Show(ex.Message, "报表工具", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}

追问

Excel.Application
需要using什么？？？？

追答

需要，你自己检查一下吧

追问

我意思要添加哪些引用？并且在using那地方using _____????

追答

你GOOGLE下很多的，比如：
第一步：
在项目的引用节点单击右键，在弹出的菜单中单击添加引用...
在弹出的对话框中单击COM项，找到Microsoft Excel 11.0 Object Library
并单击选中，然后单击选择按钮，如图“引用Excel2003”。

从中我们可以看出是引用的Excel.Exe文件，这是Excel2003版。Excel2000及Excel2002即Excel XP
第二步：
引用Excel2003后，会在引用节点中增加Excel等节点，如图“引用Excel2003后可删除不必要的引用”。

进入项目的bin\Debug目录可以看到，相应的增加了

Interop.Excel.dll、Interop.Microsoft.Office.Core.dll、Interop.VBIDE.dll三个库文件，它们都是.Net将 COM 类型库中的
类型定义转换为.Net公共语言运行库程序集中的等效定义生成的文件。
我们只需要引用Interop.Excel.dll就可以了，后面的两个文件是支持文件，不添加这两个文件的引用时在调试程序时如果有编译
不通过的如语法错误会提示未能找到依赖项Interop.Office、Interop.VBIDE，一般这是个假象，如果
没有语法错误，编译器就不会提示了：)。

我们在引用中将Microsoft.Office.Core、stdole、VBIDE选中删除掉。也可以将Excel引用删除掉重新直接引用Interop.Excel.dll。

Answer 2

直接找一个代码转换工具，自己接解决了

Answer 3

授你以鱼不如授你以渔，直接搜下相关工具
要从根本上解决还得两样语言都会点