如何用FileDialog方式開啟資料並將其內容貼上
- 帖子
- 18
- 主題
- 6
- 精華
- 0
- 積分
- 24
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- s
- 閱讀權限
- 10
- 註冊時間
- 2018-5-7
- 最後登錄
- 2022-8-9
 
|
如何用FileDialog方式開啟資料並將其內容貼上
|
|
|
|
|
|
|
- 帖子
- 18
- 主題
- 6
- 精華
- 0
- 積分
- 24
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- s
- 閱讀權限
- 10
- 註冊時間
- 2018-5-7
- 最後登錄
- 2022-8-9
|
2#
發表於 2019-12-24 12:19
| 只看該作者
有一個以上的檔案,如何利用FileDialog方式尋找檔案,並將檔案的內容Copy至Sheet(Data)內
因檔案內容第一欄標題皆一樣,所以只需Copy 一次即可 |
|
|
|
|
|
|
|
- 帖子
- 18
- 主題
- 6
- 精華
- 0
- 積分
- 24
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- s
- 閱讀權限
- 10
- 註冊時間
- 2018-5-7
- 最後登錄
- 2022-8-9
|
3#
發表於 2019-12-30 15:41
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 2
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- WIN200
- 軟體版本
- NA
- 閱讀權限
- 20
- 註冊時間
- 2020-1-21
- 最後登錄
- 2022-3-31
|
4#
發表於 2020-4-8 10:59
| 只看該作者
回復 1# peter631114
不懂你的意思 如何是要將FileDialog路徑貼上的話 可以參考這個，
將你開啟的路徑名貼到A1儲存格：
If fDialog.Show = -1 Then
Range("A1").Value = fDialog.SelectedItems(1)
End If |
|
|
|
|
|
|
|
- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
5#
發表於 2020-4-9 13:01
| 只看該作者
本帖最後由 n7822123 於 2020-4-9 13:05 編輯
回復 3# peter631114
試試看，懶的寫註解了，有問題再問- Sub 選檔貼上()
- Dim ExFile()
- Application.ScreenUpdating = False
- With Application.FileDialog(msoFileDialogFilePicker)
- .Filters.Clear
- .Filters.Add "Excel檔案", "*.xls*"
- .InitialFileName = ThisWorkbook.Path
- .AllowMultiSelect = True
- If .Show = 0 Then Exit Sub
- ReDim ExFile(1 To .SelectedItems.Count)
- For Each FN In .SelectedItems: n% = n% + 1: ExFile(n) = FN: Next
- End With
- Set 此表 = ActiveSheet: Set Data表 = Sheets("Data")
- For Each FN In ExFile
- With Workbooks.Open(FN).Sheets(1): Data表.Activate
- If [A1] = "" Then
- .[A1].CurrentRegion.Copy [A1]
- Else
- .[A1].CurrentRegion.Offset(1).Copy [A1].End(4).Offset(1)
- End If
- .Parent.Close False
- End With
- Next
- Data表.Columns.AutoFit
- Set 此表 = Nothing: Set Data表 = Nothing: Erase ExFile
- End Sub
 FileDialog-OK.rar (35.26 KB)
|
|
|
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助
|
|
|
|
|
- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
6#
發表於 2020-4-9 13:51
| 只看該作者
本帖最後由 n7822123 於 2020-4-9 13:54 編輯
回復 5# n7822123
寫簡短一點，並回到按鈕頁(像是什麼都沒發生)
- Sub 選檔貼上()
- Application.ScreenUpdating = False
- Set 此表 = ActiveSheet: Set Data表 = Sheets("Data")
- With Application.FileDialog(msoFileDialogFilePicker)
- .Filters.Clear
- .Filters.Add "Excel檔案", "*.xls*"
- .InitialFileName = ThisWorkbook.Path
- .AllowMultiSelect = True
- If .Show = 0 Then Exit Sub
- For Each FN In .SelectedItems
- With Workbooks.Open(FN).Sheets(1): Data表.Activate
- If [A1] = "" Then
- .[A1].CurrentRegion.Copy [A1]
- Else
- .[A1].CurrentRegion.Offset(1).Copy [A1].End(4).Offset(1)
- End If
- .Parent.Close False
- End With
- Next
- End With
- Data表.Columns.AutoFit: 此表.Activate
- Set 此表 = Nothing: Set Data表 = Nothing
|
|
|
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助
|
|
|
|
|
