如何將文本框值發送到excel工作表？

Private Sub Command3_Click() 
Dim oExcel As Object 
Dim oBook As Object 
Dim oSheet As Object 

'Start a new workbook in Excel 
Set oExcel = CreateObject("Excel.Application") 
Set oBook = oExcel.Workbooks.Add 


'Add data to cells of the first worksheet in the new workbook 
Set oSheet = oBook.Worksheets(1) 
oSheet.Cells(1, 1).Value = Text1.Text 
oSheet.Cells(1, 2).Value = "First Name" 
oSheet.Cells("A1:B1").Font.Bold = True 
oSheet.Cells(2, 1).Value = "Doe" 
oSheet.Cells(2, 2).Value = "John" 

'Save the Workbook and Quit Excel 
oBook.SaveAs "C:\Book1.xls" 
oExcel.Quit 
End Sub

首先VB編碼，我16年做......這樣下去容易在我身上...... 好吧，這是一個通用的代碼，但這個想法是一樣的。 Where is said：'oSheet.Cells（1，1）.Value = Text1.Text'返回錯誤「Method or meta member not found」。我怎樣才能解決這個問題？我已經將Text1的名稱改爲Dim（新名稱）作爲字符串，對象等等（我絕望了，好嗎？！），但它繼續給我同樣的錯誤。我試圖尋找網上，但沒有真正解釋爲什麼會發生這種情況。我知道這對你們很多人來說都是一個愚蠢的問題，但請記住，我們中的一些人必須開始SOMEWHERE，幫助一下。：）感謝大家！如何將文本框值發送到excel工作表？

哦，我打算做的是一個vb6格式，它會記錄從文本框1-15到excel的輸入數據，然後找到下一個空行來記錄它的數據。而且，設置oBook = oExcel.Workbooks.Add的部分將會像你一樣說Open（「blahblah.xlsx」）。所以這不會每次都會繼續添加新文件。

來源

2015-02-05 user1739280

改爲使用oSheet.Cells(1, 1).Value = Shapes(1).TextFrame.Characters.Text。假設工作表中只有一個形狀，並且它是一個文本框。其他明智的，你需要通過循環使用的東西你表中所有的形狀像

Sub LoopShapes() 
    Dim shp As Excel.Shape 
    For Each shp In Shapes 
     If shp.Type = msoTextBox Then 
      Debug.Print shp.TextFrame.Characters.Text 
     End If 
    Next shp 
End Sub

請讓我知道這對你的作品。

來源

2015-02-05 03:18:01 Jeanno

如何將文本框值發送到excel工作表？

回答

相關問題