求助：把EXCEL作業薄里面的第一個表的A1單元格內容顯示在VB表單上面的Text里，求完整代碼，我是剛學的，講的太深也聽不懂，求老師把代碼寫出來，拿過來慢慢領悟，說明一下，這個EXCEL作業薄是隨程式一起運行的，所以不存在程式是否打開的問題，它一直在后臺運行，并且同時運行的有兩個EXCEL作業薄，權且叫A.表，B表吧。
uj5u.com熱心網友回復：
老師在哪里？沒人回答我自己頂一下。uj5u.com熱心網友回復：
樓主，你要先區分清楚“作業簿”、“作業表”的概念。既然你要讀資料的作業簿是已經打開的，那么必須明確讀取哪個作業簿的哪張作業表！
也就是說：
必須知道實際的“作業簿名”、對應的表名（這是“文本標簽”）或表索引號（這是“數”值，對使用者不可見）。
才能通過COM介面正確的讀取到單元格中的資料。
另外你在主貼中提到“這個EXCEL作業薄是隨程式一起運行的”，
難道是你自己的程式啟動后，自己用代碼打開的檔案？
uj5u.com熱心網友回復：
我也有這樣的問題，同求！！！uj5u.com熱心網友回復：
Private Sub Form_Load()
Dim wb
Set wb = GetObject("C:\Excel作業簿.xlsx")
'你說的第 1 個作業簿,
MsgBox wb.Sheets(1).cells(1, 1)
'但一般是用下面這樣指定表名 "Sheet作業表" 來操作的 , 因為你可能不能確定你的作業表是第幾
MsgBox wb.Sheets("Sheet作業表").Range("a1")
MsgBox wb.Sheets!Sheet作業表.Range("a1")
MsgBox wb.Sheets!Sheet作業表.[a1]
MsgBox wb.Sheets("Sheet作業表").cells(1, 1)
MsgBox wb.Sheets("Sheet作業表").cells(, 1)
MsgBox wb.Sheets("Sheet作業表").cells(1)
''要關閉作業表的話,把下面兩行取消注釋
'wb.Close
'Set wb = Nothing
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/54285.html
標籤：控件
上一篇：vb學習求助