返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-5-30 07:48 | 顯示全部帖子
回復 1# Justin_wang
  1. Sub Ex()
  2.     Dim R As Range, i As Long, ii As Integer
  3.     With Application.FileDialog(msoFileDialogOpen)  '檔案對話方塊執行個體
  4.         .AllowMultiSelect = True                    '可複選檔案
  5.         .InitialFileName = "D:\TEST"                '可修改為你要開啟的目錄
  6.         .Show                                       '顯示檔案對話方塊
  7.         If .SelectedItems.Count >= 1 Then           '選擇的檔案數
  8.             For i = 1 To .SelectedItems.Count       '依序在選擇的檔案
  9.                 If MsgBox("匯入" & .SelectedItems(i), vbYesNo) = vbYes Then
  10.                                         '
  11.                     '
  12.                     '2-3匯入檔案
  13.                     '
  14.                     '
  15.                 End If
  16.             Next
  17.         End If
  18.     End With
  19. End Sub
複製代碼

TOP

GBKEE

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

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題