標題:
[發問]
請益匯入外部資料vba
[打印本頁]
作者:
Justin_wang
時間:
2011-5-29 20:03
標題:
請益匯入外部資料vba
1.希望設計一個指令按鈕可以執行巨集.
2-1.匯入外部資料後，等待人員選擇要匯入的檔案。(不要指定特定檔名，需要人員選定檔案)
2-2.當選定好檔案，按下開啟後，會跳出一個視窗提醒訊息，訊習內容為: 確認你要匯入檔案為xxxxx ，之後有YES/NO給人員選取，按下YES值執行匯入的檔案.
2-3匯入檔案以逗號做區隔就可以，不要新建活頁簿，匯入在名稱為:"生產data"活業簿由A1開使.
可煩請大大可否示範一次，
我卡在2-1與2-2過成程中
作者:
GBKEE
時間:
2011-5-30 07:48
回復
1#
Justin_wang
Sub Ex()
Dim R As Range, i As Long, ii As Integer
With Application.FileDialog(msoFileDialogOpen) '檔案對話方塊執行個體
.AllowMultiSelect = True '可複選檔案
.InitialFileName = "D:\TEST" '可修改為你要開啟的目錄
.Show '顯示檔案對話方塊
If .SelectedItems.Count >= 1 Then '選擇的檔案數
For i = 1 To .SelectedItems.Count '依序在選擇的檔案
If MsgBox("匯入" & .SelectedItems(i), vbYesNo) = vbYes Then
'
'
'2-3匯入檔案
'
'
End If
Next
End If
End With
End Sub
複製代碼
作者:
Justin_wang
時間:
2011-5-30 21:48
回復
2#
GBKEE
大大你可以寫完整的嗎?
剛剛開始學習，可以提供給我比對ㄇ?
另外要贊助網站的帳號為下列這個ㄇ
請以ATM轉帳方式將您的贊助金額轉至
銀行代碼 : 815(日盛國際商銀)
帳號 : 010-10-013846-400
作者:
GBKEE
時間:
2011-5-31 10:17
回復
3#
Justin_wang
並非一定要贊助才給回答的,當然有贊助網站才能永久經營下去
你不是說: 我卡在2-1與2-2過成程中
2-3匯入檔案以逗號做區隔就可以，不要新建活頁簿，匯入在名稱為:"生產data"活業簿由A1開使.
你要說清楚: 匯入檔案的 全部 或 一部份 ,多檔案 匯入那裡 ?? 如何連接下去??
作者:
Justin_wang
時間:
2011-5-31 15:07
[attach]6435[/attach]
回復
4#
GBKEE
版大:
這幾天有觀察論壇裡的版大都很有心回答大家的問題
而且可以在論壇中找到想要的資料與問題
我真的覺得是各好論壇!!!!
真的要支持下去!!
也要幫忙推一下才行
Sorry !!!我沒表達清除
昨天我市著連接起來我自己接下去的不行
版大寫的給我的2-1到2-2過程是ok的!!想煩請版大寫晚整借鏡一下
匯入檔案筆數:單一
匯入檔案內容:全部
匯入檔案排列方式:逗號區隔
字型新細明體
字體大小:8
再"生產data"中AK欄與AL欄的欄寬為86
參考附件
excel檔案中的"生產data"為最終要的
檔名:20110526_BCA (R) 為要匯入的檔案
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
