標題: [發問] 如何將檔案A建立的資料新增到檔案B? [打印本頁]

---

作者: jackie    時間: 2011-7-14 14:55     標題: 如何將檔案A建立的資料新增到檔案B?

有一個excel vba的檔案，規劃如下，三活頁，資料表、輸入表單、列印，"輸入表單" 將相關資訊鍵入完畢後，壓"送出鈕"將資料寫入到"資料表"；"列印"頁是以VLOOKUP的方式作業，當輸入序號，檔案會從"資料表"對應出相關資料，之後在列印。然因使用的窗口越來越多，希望能克服下列相關問題，
希望一：把"資料表"的活頁單獨獨立出一個excel檔案，並將該檔案放置在固定的路徑，輸入頁點送出時，資料即寫到獨立的檔案內
希望二：列印頁，輸入資料時，從原先檔案的"資料表"內呼叫，改成呼叫"獨立出去後的資料表檔案"，只要路徑改變即可嗎?

Sub ADDON()
    Dim motoSht As Worksheet, sakiSht As Worksheet, sakiRng As Range
      Dim motoHani()                                    
    Set motoSht = Sheets("輸入表單")                 
    Set sakiSht = Sheets("資料表")                     
    motoHani = Array("C3", "C4", "C5", "C6")   
   Set sakiRng = sakiSht.Range("B" & Rows.Count).End(xlUp).Offset(1)
   For i = 0 To UBound(motoHani)
        sakiRng.Offset(0, i).Value = motoSht.Range(motoHani(i)).Value
    Next
    sakiRng.Offset(, i).Value = Time
   
   Sheets("資料表").Select
    Range("B5:AD3000").Select
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4"), Order2:=xlDescending, Header:=xlNo, OrderCustom:=1,    MatchCase:=False, Orientation:=xlTopToBottom

  MsgBox "- - 加油 - -"
  
    Range("B4").Select
    Sheets("列印").Select
    Range("C5").Select
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)