请问各位老师,如何把{"第一列","第二列",“第四列”,“第五列”} 这个部分用代码替换成“表D”的列标题
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim fs As String = String.Join(",",dlg.FileNames)
MessageBox.Show("你选择的是:" & fs,"提示")
If MessageBox.Show("是否合并?","请确 认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
DataTables("表D").StopRedraw
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook
Dim Ws As MSExcel.WorkSheet
Dim cs() As String = {"第一列","第二列",“第四列”,“第五列”} ‘------------------------如何把{"第一列","第二列",“第四列”,“第五列”} 这个部分用代码替换成“表D”的列标题
try
For Each file As String In dlg.FileNames
Wb = App.WorkBooks.Open(file)
Ws = Wb.WorkSheets(1) 'sheet2标签
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
For n As Integer = 2 To rg.Rows.Count
Dim ro As Row = Tables("表D").AddNew
For i As Integer = 0 To cs.length - 1
ro(cs(i))= ary(n,i+1)
Next
Next
Next
catch ex As exception
Output.Show(ex.message)
App.quit
DataTables("表D").ResumeRedraw
End try
App.quit
DataTables("表D").ResumeRedraw
End If
End If
[此贴子已经被作者于2020/12/12 13:16:20编辑过]