匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 8 年前

您好 請問該如何將vb計算出的結果輸出至excel指定的儲存

小弟有個問題還煩請各位先進指教!

就是我目前有用vb6.0寫出一個簡單的運算表!

想把vb計算出的結果(值)讓我可以輸出到excel裡!

因為計算出的值有很多欄,我想把他分別輸出到excel的不同儲存格裡!

所以希望能指定儲存格!而且因為最終我要用點陣式列表機列印出來到制式化的工單上,所以excel欄列的寬高都是要調整過!

我有個想法,不知是否可行?

就是我先建立一個excel,檔名為Sample.xls

然後此檔我已先調整好所有我要的欄列寬高位置,然後vb再列印前會將資料先帶入sample.xls裡我想要存入的儲存格裡再進行列印,這樣是否就可以列印出希望的位置??

還請各位指教vb語法如何撰寫!!!

有勞了 謝謝!

已更新項目:

感謝樹哥的回覆!

已經可行了,但是我還想讓此EXCEL不必被開啟,我希望把語法寫在一個Command裡面,點擊完後會輸出成另外一個EXCEL,檔名可自訂(但是會以Sample.xls當樣本),然後輸出完會跳出一個msgbox說 "excel匯出完成"!

不知該添加何種語法??

懇請再次賜教!!

謝謝!

3 個解答

評分
  • 樹哥
    Lv 5
    8 年前
    最佳解答

    Dim objExcelApp As Excel.Application

    Dim objSheet As Excel.Worksheet

    Set objExcelApp = CreateObject("Excel.Application")

    'objExcelApp.Workbooks.Open App.Path + "\Sample"

    objExcelApp.Workbooks.Open "D:\XX\Sample" '路徑

    objExcelApp.Visible = True

    Set objSheet = objExcelApp.ActiveWorkbook.Sheets("Sheet1") '表單

    objSheet.Activate

    '以下是要填入的資料

    objSheet.Cells(4, 1).Value = "Prod. no: " + Text1

    objSheet.Cells(4, 3).Value = "Date received : " + Text2

    objSheet.Cells(5, 1).Value = "Material : " + Text3

    objSheet.Cells(5, 3).Value = "Batch no. : " + Text4

    objSheet.Cells(6, 1).Value = "Supplier : " + Text5

    objSheet.Cells(7, 1).Value = "Manufacturer : " + Text6

    objSheet.Cells(8, 1).Value = "Quantity received: " + Text7

    Screen.MousePointer = vbDefault

  • 6 年前

    我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援,一開始也跟大家一樣總是問價格到處比價,因為不懂,凡事都從價格,考量,輕言聽信朋友介紹比較便宜一家,找錯家之後痛苦尾隨而來,以下省略500字........,後來自己上網找資料救援找到硬碟醫院,和他們經理溝通之後給我正確觀念,這是妳寶貴的資料,妳要考慮是救不救的回問題,而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料

    http://www.datamaster.com.tw/

  • 匿名使用者
    6 年前

    【亞洲36588合法彩券公司直營 官網: A36588.NET 】

    【 最新活動→迎接新會員,首存狂送20% 】

    【運動→電子→對戰→現場→彩球 】

    【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

    【亞洲36588合法彩券公司直營 官網: A36588.NET 】

還有問題?馬上發問,尋求解答。