註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 請益匯入外部資料vba
返回列表
下一主題
上一主題
發帖
[發問]
請益匯入外部資料vba
Justin_wang
發短消息
加為好友
Justin_wang
(Justin)
當前離線
UID
4979
帖子
16
主題
5
精華
0
積分
26
金錢
26
點名
0
作業系統
Win7
軟體版本
office2003
閱讀權限
10
性別
男
在線時間
11 小時
註冊時間
2011-5-29
最後登錄
2014-12-5
暱稱:
Justin
小學生
帖子
16
主題
5
精華
0
積分
26
點名
0
作業系統
Win7
軟體版本
office2003
閱讀權限
10
性別
男
註冊時間
2011-5-29
最後登錄
2014-12-5
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 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)
下載次數:15
2011-5-29 19:54
問題描述
樓主熱帖
EXCEL時間計算(跨日)--請益
求救!!!匯入外部資料問題
求檔~~可匯入excel用128條碼字型檔案
大大救命阿!!關於4個巨集
收藏
分享
Justin WANG
Justin_wang
發短消息
加為好友
Justin_wang
(Justin)
當前離線
UID
4979
帖子
16
主題
5
精華
0
積分
26
金錢
26
點名
0
作業系統
Win7
軟體版本
office2003
閱讀權限
10
性別
男
在線時間
11 小時
註冊時間
2011-5-29
最後登錄
2014-12-5
暱稱:
Justin
小學生
帖子
16
主題
5
精華
0
積分
26
點名
0
作業系統
Win7
軟體版本
office2003
閱讀權限
10
性別
男
註冊時間
2011-5-29
最後登錄
2014-12-5
5
#
發表於 2011-5-31 15:07
|
只看該作者
參考附件.zip
(22.68 KB)
附件
下載次數: 22
2011-5-31 15:07
回復
4#
GBKEE
版大:
這幾天有觀察論壇裡的版大都很有心回答大家的問題
而且可以在論壇中找到想要的資料與問題
我真的覺得是各好論壇!!!!
真的要支持下去!!
也要幫忙推一下才行
Sorry !!!我沒表達清除
昨天我市著連接起來我自己接下去的不行
版大寫的給我的2-1到2-2過程是ok的!!想煩請版大寫晚整借鏡一下
匯入檔案筆數:單一
匯入檔案內容:全部
匯入檔案排列方式:逗號區隔
字型新細明體
字體大小:8
再"生產data"中AK欄與AL欄的欄寬為86
參考附件
excel檔案中的"生產data"為最終要的
檔名:20110526_BCA (R) 為要匯入的檔案
Justin WANG
TOP
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
4
#
發表於 2011-5-31 10:17
|
只看該作者
回復
3#
Justin_wang
並非一定要贊助才給回答的,當然有贊助網站才能永久經營下去
你不是說: 我卡在2-1與2-2過成程中
2-3匯入檔案以逗號做區隔就可以，不要新建活頁簿，匯入在名稱為:"生產data"活業簿由A1開使.
你要說清楚: 匯入檔案的 全部 或 一部份 ,多檔案 匯入那裡 ?? 如何連接下去??
TOP
Justin_wang
發短消息
加為好友
Justin_wang
(Justin)
當前離線
UID
4979
帖子
16
主題
5
精華
0
積分
26
金錢
26
點名
0
作業系統
Win7
軟體版本
office2003
閱讀權限
10
性別
男
在線時間
11 小時
註冊時間
2011-5-29
最後登錄
2014-12-5
暱稱:
Justin
小學生
帖子
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
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
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
靜思自在 :
一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 • 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲
發表於 2011-5-29 20:03
| 
發表於 2011-5-31 10:17
| 
