主题：excel

Dim cj2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim y,m,d As Integer
Dim dt2 As Date
dt2 = vars("gg")
Dim dt1 As Date = #1/01/0001#
DateYMD(dt1,dt2, y, m, d)
y=y+1
m=m+1
d=d+1
Dim f1 As String = "E:\财务数据汇总\报税\集资款.xls"
Dim f2 As String = "E:\财务数据汇总\报税\利息抵.xls"
Dim Book1 As New XLS.Book(f1)
Dim Book2 As New XLS.Book(f2)
Dim Sheet1 As XLS.Sheet = Book1.Sheets("单位集资发放利息")
Dim Sheet2 As XLS.Sheet = Book2.Sheets("利息抵")
If Sheet1(1,6).Value = vars("cc") Then
    'For n As Integer = 4 To 19
    Sheet2(7,3).Value = Sheet1(4,3).Value
    Sheet2(6,4).Value = Sheet1(4,5).Value
    Dim Proc As New Process
    Proc.File = (f2)
    Proc.Start()  
    'Next
Else
    MessageBox.Show("导入报表日期不符!")
End If

为什么不能赋值？

 你要先把book2保存以后，再打开才行啊

如何复制book2的工作表？

不理解你什么意思

问题，请先详细说明说明；同时上传对应例子

• Dim App As New MSExcel.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
  Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比") '指定要复制的工作表
  With Wb.WorkSheets
      Ws.Copy(After:=.Item(.Count))'复制到最后面
      Ws.Copy(Before:=.Item(1))'复制到最前面
      Ws.Copy  '复制到一个新工作簿
  End With
  Wb.Save
  App.Quit
  
• 如何改为sheets复制

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test01.xls")
app.DisplayAlerts = False

For n As Integer = Wb.WorkSheets.Count to 2 step -1
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(n)
    'If ws.cells(3,4).value = "公司" Then
        ws.delete
    'End If
Next
app.visible = true