返回列表下一主題上一主題發帖

[發問] 請益匯入外部資料vba

Justin_wang

　暱稱: Justin

小學生 Rank: 1

帖子: 16
主題: 5
精華: 0
積分: 26
點名: 0
作業系統: Win7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-29
最後登錄: 2014-12-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-29 20:03 | 只看該作者

[發問] 請益匯入外部資料vba

1.希望設計一個指令按鈕可以執行巨集.
2-1.匯入外部資料後，等待人員選擇要匯入的檔案。(不要指定特定檔名，需要人員選定檔案)
2-2.當選定好檔案，按下開啟後，會跳出一個視窗提醒訊息，訊習內容為: 確認你要匯入檔案為xxxxx ，之後有YES/NO給人員選取，按下YES值執行匯入的檔案.
2-3匯入檔案以逗號做區隔就可以，不要新建活頁簿，匯入在名稱為:"生產data"活業簿由A1開使.

可煩請大大可否示範一次，
我卡在2-1與2-2過成程中

問題.rar (33.81 KB)

問題描述

樓主熱帖

Justin WANG

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 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

複製代碼

TOP

Justin_wang

　暱稱: Justin

小學生 Rank: 1

帖子: 16
主題: 5
精華: 0
積分: 26
點名: 0
作業系統: Win7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-29
最後登錄: 2014-12-5

3^#

發表於 2011-5-30 21:48 | 只看該作者

回復 2# GBKEE

大大你可以寫完整的嗎?
剛剛開始學習，可以提供給我比對ㄇ?
另外要贊助網站的帳號為下列這個ㄇ
請以ATM轉帳方式將您的贊助金額轉至
銀行代碼 : 815(日盛國際商銀)
帳號 : 010-10-013846-400

Justin WANG

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-5-31 10:17 | 只看該作者

回復 3# Justin_wang
並非一定要贊助才給回答的,當然有贊助網站才能永久經營下去
你不是說: 我卡在2-1與2-2過成程中
2-3匯入檔案以逗號做區隔就可以，不要新建活頁簿，匯入在名稱為:"生產data"活業簿由A1開使.
你要說清楚: 匯入檔案的全部或一部份 ,多檔案匯入那裡 ?? 如何連接下去??

TOP

Justin_wang

　暱稱: Justin

小學生 Rank: 1

帖子: 16
主題: 5
精華: 0
積分: 26
點名: 0
作業系統: Win7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-29
最後登錄: 2014-12-5

5^#

發表於 2011-5-31 15:07 | 只看該作者

參考附件.zip (22.68 KB) 回復 4# GBKEE

版大:
這幾天有觀察論壇裡的版大都很有心回答大家的問題
而且可以在論壇中找到想要的資料與問題
我真的覺得是各好論壇!!!!
真的要支持下去!!
也要幫忙推一下才行
Sorry !!!我沒表達清除
昨天我市著連接起來我自己接下去的不行
版大寫的給我的2-1到2-2過程是ok的!!想煩請版大寫晚整借鏡一下
   匯入檔案筆數:單一
   匯入檔案內容:全部
   匯入檔案排列方式:逗號區隔
   字型新細明體
   字體大小:8
   再"生產data"中AK欄與AL欄的欄寬為86

   參考附件
   excel檔案中的"生產data"為最終要的
   檔名:20110526_BCA (R) 為要匯入的檔案

Justin WANG

TOP

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題