使用VAB按鈕完成資料

VAB我在還學習中，所以不是很懂
但急迫在工作中(每天)使用頻繁只好上來求救，請求會的大大幫我

想使用VAB按鈕完成資料

ALL.zip (23.1 KB)

樓主熱帖

koala2099

中學生 Rank: 2

帖子: 58
主題: 21
精華: 0
積分: 97
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-2-28
最後登錄: 2024-10-3

2^#

發表於 2013-10-30 23:47 | 顯示全部帖子

回復 2# luhpro

:victory: 哇~~~好感動唷!以後工作可以加快許多了，非常謝謝您:loveliness:

可否在請教若檔案S及E是.xls，單純只要把S.xls工作表S、E.xls工作表E內的資料
分別複製到ALL.xls工作表S及E又該如何處理
(有時會有3~5個.xls的工作表)要複製到ALL原有工作表裡
因為ALL.xls裡我設有一個SUMIF統計全部數據表格
有在網路上找到都是新增新的工作表
不是把資料覆製到我原有工作表裡
所以我用SUMIF的連結全用不上又要重連
可否再請您幫幫我:$

TOP

koala2099

中學生 Rank: 2

帖子: 58
主題: 21
精華: 0
積分: 97
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-2-28
最後登錄: 2024-10-3

3^#

發表於 2013-10-31 21:07 | 顯示全部帖子

回復 4# luhpro

謝謝~問題是解決了!
只是有些不便，因為下載的資料Sheets名不同
還需先一一開啟檔案將 E.xls及S.xls(內Sheets重新命名為("E")) 、 S.xls(內 Sheets重新命名為("S")) ....
有時要匯E.xls、S.xls、A.xls、B.xls、C.xls.... ;P
本想從XML資料匯入再按右鍵重新整理，只是不知道為什麼所匯入的資料是[文字]非[數據]導致SUMIF無法加總
:dizzy: 所以都用手動一個一個複製貼上值
非常謝謝您的幫忙~辛苦了3Q^^

TOP

koala2099

中學生 Rank: 2

帖子: 58
主題: 21
精華: 0
積分: 97
點名: 0
作業系統: win8
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-2-28
最後登錄: 2024-10-3

4^#

發表於 2013-10-31 23:14 | 顯示全部帖子

回復 6# luhpro
順利解決了

非常謝謝您的幫忙，讓我這菜卡能更順利完成工作~謝謝^^

Sub A()
  Dim iI%
  Dim sSh$(0 To 2)

  sSh(0) = "S"
  sSh(1) = "T"
  sSh(2) = "E"

For iI = 0 To 2
With Workbooks.Open(ThisWorkbook.Path & "\" & sSh(iI) & ".xls")
      .Sheets(1).Cells.Copy ThisWorkbook.Sheets(sSh(iI)).[A1]
   .Close SaveChanges:=False
End With
  Next iI

End Sub
另其中有檔案是.csv參雜在裡面咧??

TOP