用VB 複製Excel的sheet到另外一個Excel檔

請問一下!!

我有兩個Excel.

我想把A.Excel的Sheet1(整個)複製到B.Excel.

怎麼做???

另外想問一下!

要把VB結合Excel有哪些一定的格式語法嗎??

簡單的說就是...有專門教這個的網站嗎??

謝謝~~~~

3 個解答

評分
  • 5 年前
    最佳解答

    對一個初學者來說,這並不容易。

    寫入以下的程式碼,須先加入參考(做法可以參考這個網站http://blog.xuite.net/k0033a/vb2008/209515118)

    Dim xlApp1, xlApp2 As Microsoft.Office.Interop.Excel.Application

    Dim xlBook1, xlBook2 As Microsoft.Office.Interop.Excel.Workbook

    Dim xlSheet1, xlSheet2 As Microsoft.Office.Interop.Excel.Worksheet

    xlApp1 = CreateObject("Excel.Application")

    xlApp1.Visible = True

    xlBook1 = xlApp1.Workbooks.Open("C:\Users\終結者\Desktop\Book1.xls") '開舊檔

    xlSheet1 = xlApp1.ActiveWorkbook.Sheets(2) '選擇第2個工作表單

    ' xlSheet1.Cells().Select '全選第二個工作表單

    xlSheet1.Cells().Copy() '複製第二個工作表單

    xlApp2 = CreateObject("Excel.Application")

    xlApp2.Visible = True

    xlBook2 = xlApp2.Workbooks.Open("C:\Users\終結者\Desktop\Book2.xls") '開舊檔

    xlSheet2 = xlApp2.ActiveWorkbook.Sheets(1) '選擇第1個工作表單

    xlSheet2.Paste() '把Book1的第二個工作表單,貼到Book2的第一個工作表單

    完整的資料網站見參考資料

  • 5 年前

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

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

  • 5 年前

    用excel vba會好寫很多

    http://msdn.microsoft.com/zh-tw/library/office/ee8...

    tip:

    1.atcive sheet進行range copy

    2.開啟另一個excel

    3.attivesheet.range.paste

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