1.程式中對指定的Excel檔案的修改似乎在退出程式后就失效了。
2.每次對Excel操作都會打開Excel檔案。
上述兩個都是不希望出現的結果，請問怎么解決啊！
程式代碼部分，應該做什么修改？
Private Sub Datadeal()
Call test()
Dim N As Integer
Dim xlapp As Excel.Application
Dim xlwork As Excel.Workbook
Dim xlsheet As Excel.Worksheet
xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlwork = xlapp.Workbooks.Open("F:\VB\Blood.xlsx")
xlsheet = xlwork.Worksheets(1)
xlsheet.Activate()
For N = 1 To 50
xlsheet.Cells(1, N) = TD(N)
Next N
xlsheet.Cells(1, 1) = "abc"
xlapp = Nothing
xlwork = Nothing
xlsheet = Nothing
End Sub
uj5u.com熱心網友回復：
1 釋放前缺少保存陳述句xlapp.Saved = True
2 屏蔽顯示陳述句
xlapp.Visible = True
uj5u.com熱心網友回復：
那這個只讀的問題怎么搞定啊！貌似我打開后就會出現這個檔案一直處于被編輯的狀態，變成只讀uj5u.com熱心網友回復：
貌似有問題啊！這個xlapp.Saved=true.VS2012中沒有這個說法
uj5u.com熱心網友回復：
xlwork.saved=trueuj5u.com熱心網友回復：
謝謝啊。還有一個問題不好意思，我寫資料的時候希望從上次結束的空白位置開始寫，這個怎么實作？uj5u.com熱心網友回復：
你說的“只讀”，應該是程序被多次呼叫，
“后面打開的檔案”處于只讀狀態吧！
你那段代碼，打開檔案進行修改后，
沒有保存、沒有關閉檔案。
另外，你主貼中貼的代碼，應該是有語法錯誤的吧？
對物件的賦值，應該是: Set 物件變數=物件參考
這種格式才是正確寫法吧！
檔案修改后，應該這樣關閉檔案并保存更改：
xlsheet.Cells(1, 1) = "abc"
Set xlsheet = Nothing
xlwork.Close True
Set xlwork = Nothing
Set xlsheet = Nothing
1樓說的“保存操作”，我覺得肯定是錯的，那樣根本就沒保存檔案。
另外說一點，就是這些物件參考的釋放順序，
我覺得，因為這幾個物件有“層次關系”，應該是這樣釋放參考比較好：
先釋放Sheet參考，然后關閉作業表（當然你需要“保留檔案視窗給用戶”就不關閉）；
再釋放WorkBook，最后釋放App 。
我覺得這樣有利于COM妥善處理物件釋放和記憶體清理。
這只是我的個人觀點，你要是覺得“隨便哪樣釋放都無所謂”，
我也沒什么好說的，只能說蘿卜青菜，各有所愛。
uj5u.com熱心網友回復：
你用的是VS2012 ？如果在VS中不再用Set，
那你把我在樓上回復中的set去掉好了。
uj5u.com熱心網友回復：
看usedrange
uj5u.com熱心網友回復：
xlsheet.cells(xlsheet.UsedRange.Rows.Count+1, 1).value="https://bbs.csdn.net/topics/***"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115374.html
標籤：VB基礎類
上一篇：快速排序？