一、EXCEL中的VB怎么更改
代码改为这样,并且放到ThisWorkbook,就可以整个工作薄都可以用了。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Value <> "" Then
Cells(Target.Row, 3) = Now()
End If
End Sub
二、VB如何修改excel表格的内容
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("D:RTM RecordRTM Tester" & Date & "StatisticsSummaryLog_RTM_without_IXX_sample.csv")
xlapp.Visible = False
Set xlSheet = xlbook.Worksheets(1)
‘中间加你想要的操作
xlbook.Close (True)
xlapp.Quit
Set xlapp = Nothing
’最后记得 要退出哦!
我想差异就在于 你的是getobject,我的是createobject,你改下试一下的吧,我一直是用这种方法!
希望对你有所帮助!
你再看下你的引用里面是否有选择下图上的选项!