你好:
再加上不再顯示是否要覆蓋Resume.xlw的程式碼
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim XlsObject As Object
On Error Resume Next
XlsObject = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
XlsObject = CreateObject("Excel.Application")
End If
XlsObject.Application.Visible = True
XlsObject.workbooks.open(Filename:="C:\test.xls")
XlsObject.Sheets("sheet1").Range("a1") = "test"
XlsObject.sheets("sheet1").Range("b1") = "'99999"
XlsObject.DisplayAlerts = False
XlsObject.save()
XlsObject.DisplayAlerts = True
XlsObject.quit()
XlsObject = Nothing
GC.Collect()
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"chijanzen" 來函：
Post by chijanzen請參考以下程式碼
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim XlsObject As Object
On Error Resume Next
XlsObject = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
XlsObject = CreateObject("Excel.Application")
End If
XlsObject.Application.Visible = True
XlsObject.workbooks.open(Filename:="C:\test.xls")
XlsObject.Sheets("sheet1").Range("a1") = "test"
XlsObject.sheets("sheet1").Range("b1") = "'1989"
XlsObject.save()
XlsObject.quit()
XlsObject = Nothing
GC.Collect()
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"P陳" 來函：
Post by Pé³謝謝您
不過還是每執行一次 就增加一個執行的 excel
存檔時還是會出現 resume.xlw 已存在是否要覆寫的訊息
另 vb.net 不是不用set 了嗎? set 打下去就自動不見了
Dim XlsObject As Object
XlsObject = CreateObject("Excel.Application")
XlsObject.workbooks.open(Filename:="D:\temp\excel3.xls")
XlsObject.application.visible = True
XlsObject.Sheets("sheet1").Range("a1") = "test"
XlsObject.sheets("sheet1").range("b1") = "'1989"
XlsObject.save()
'XlsObject.application.quit()
XlsObject.quit()
XlsObject = Nothing