我想將好多text box 的資料傳到excel裡,請教各位大大詳加指導
因我是初哥...另外還請教如何將form1.printform 裡的form1
放大或縮細.因只用printform列印出來太小了...請教各位大大詳加指導..大因大德.沒此難忘
因我是初哥...另外還請教如何將form1.printform 裡的form1
放大或縮細.因只用printform列印出來太小了...請教各位大大詳加指導..大因大德.沒此難忘
文章標籤
全站熱搜
- 1月 15 週四 200419:05
救救我吧........text box 的資料傳到excel裡(編號：32670)
Dim appExcel As Excel.Application Dim wbExcel As Excel.Workbook Set appExcel = CreateObject("excel.application") Set wbExcel = appExcel.Workbooks.Open(filename) filename是你要開啟的excel檔的檔名 然後你可以用wbExcel.Worksheets(i)取得你所要的Worksheet 'Worksheets是Worksheet(即工作表)的集合 例如你現在有一個Textbox的名稱為txt1 你可以令wbExcel.Worksheets(i).Cells(r, c) = txt1 其中r為第幾列 c則為第幾欄 這樣Cells(r,c)的值就會等於txt1 最後記的要加上 appExcel.Quit 不然Excel的應用程式不會關閉 如果你希望結束VB時即儲存Excel裡的資料 你可以在appExcel.Quit之前再加上一行 wbExcel.Close savechanges:=True 如果不加 wbExcel.Close savechanges:=True 也行 不過VB結束之前會有一個視窗問你是否要儲存Excel的資料 不知這樣有解決你的問題