VB如何修改excel表格的内容？

发布网友

我来回答

共2个回答

热心网友

Set xlapp = CreateObject("excel.application")

    Set xlbook = xlapp.Workbooks.Open("D:\RTM Record\RTM Tester" & Date & "\Statistics\SummaryLog_RTM_without_IXX_sample.csv")

    xlapp.Visible = False

    Set xlSheet = xlbook.Worksheets(1)

    ‘中间加你想要的操作

    xlbook.Close (True)

    xlapp.Quit

    Set xlapp = Nothing

    ’最后记得 要退出哦！

我想差异就在于   你的是getobject,我的是createobject,你改下试一下的吧，我一直是用这种方法！

希望对你有所帮助！

你再看下你的引用里面是否有选择下图上的选项！

热心网友

Sub t()
Dim FilesToOpen
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename:="F:\生产报表\8\" & Format(Now - 1, "yyyy.mm.dd") & "-" & Format(Now, "mm.dd") & ".xls")
wb.Sheets(1).Cells(4, 4) = "m"
wb.Save
wb.Close
Application.ScreenUpdating = True
End Sub追问试了试可以写，想请教wb是在哪儿定义的？filestoopen是什么意思？