内容导航:


一、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,你改下试一下的吧,我一直是用这种方法!

希望对你有所帮助!

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