Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(App.Path & "\PrintPhoto.xls") Set xlSheet = xlBook.Worksheets(1) xlApp.Visible = False xlSheet.Cells(1,1) = 新的內容 xlApp.Visible = true
sql=update [sheet1$] set f3="XXXXX" 整列替换
sql = "Update [Sheet1$] Set F3='XXXXXX'"'如果愿意,请在这里加WHERE子句,如果不加则替换整列
创建EXCEL对象,然后用cell(行,列)=需要的值来实现
sql = "Update [Sheet1$] Set F3='XXXXXX'"'如果愿意,请在这里加WHERE子句,如果不加则替换整列 这样之后怎么处理啊?不好意思我没有处理过execl的操作
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\PrintPhoto.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False xlSheet.Cells(1,1) = 新的內容
xlApp.Visible = true
这样之后怎么处理啊?不好意思我没有处理过execl的操作