子窗体数据导出到excel后，能利用代码修改导出的数据吗？

kent_73

如何利用代码，将子窗体中的数据导出到excel后，再直接使用代码，对导出后的excel文件进行修改？

使用如下代码导出数据，能正常导出，
    Me.子窗体名.SetFocus
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("excel.application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"

但是一旦加入下面一句，就出现了错误，错误提示看图片。

Range("b1").Activate

kangking

将
Range("b1").Activate
改为
obj.Range("b1").Activate

再试试。

Henry D. Sy

obj.Workbooks.worksheets(1).Range("b1").Activate

kent_73

谢谢

obj是什么意思啊

Henry D. Sy

你自己定义的对象变量

kent_73

以下是完整的代码，但是只有在打开数据库后，第一次点击按钮，得到我需要的数据和格式，而第二次点击按钮，不能得到我要的效果。不知哪里有问题？
    Me.子窗体名.SetFocus
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("excel.application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"   

    obj.Rows("1:2").Insert
    obj.Columns("b:b").Delete
    obj.Range("c1") = "物品领用明细表(" & Year(Date) & "年" & Month(Date) & "月)"
    obj.Cells(3, 27) = "合计"
    obj.Cells(2, 27) = Date
     For i = 4 To obj.[a65535].End(xlUp).Row
     obj.Cells(i, 27) = obj.Application.WorksheetFunction.Sum(obj.Range(obj.Cells(i, 2), obj.Cells(i, 26)))   
     Next

kent_73

6楼的问题已经解决，但是又发现一个问题，
导出的数据不能进行合计。

kent_73

已解决