- 帖子
- 27
- 主題
- 11
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- window
- 軟體版本
- window7
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2019-12-12
- 最後登錄
- 2021-4-21
|
2#
發表於 2019-12-24 08:54
| 只看該作者
各位大大
有人可幫忙回復嗎
就是說
1.我利用以下的程式碼(加入檔案)
結果是ok!它可將選取的檔案路徑餮在excel 上
2.第二段(執行)
結果是已選取的檔案開啟後,會自動往下貼在同一sheet中
3.我希望在開啟檔案路徑後,在執行時可將檔案放在不同sheets
求解各位大大
第一段程式段OK但.......
Sub 加入檔案()
fds = Application.GetOpenFilename("Excel Files (*.xls;*.xlsx), *.xls;*.xlsx", , , , True)
If IsArray(fds) Then
For i = 1 To UBound(fds)
[A1].Offset(i - 1) = fds(i)
Next
End If
End Sub
請問在執行時如果要選擇性的將檔案貼到指定的sheet上(不同sheet)
以下執行程式要怎麼改寫
(原本以下程式 只是將開啟的資料貼在同sheet上,
Sub 執行()
For Each a In Range([A1], Cells(Rows.Count, 1).End(xlUp))
With Workbooks.Open(a)
.Sheets(1).[A1:Z20000].Copy ThisWorkbook.Sheets("Result").Cells(Rows.Count, 1).End(xlUp)
.Close 0
End With
Next
End Sub
謝謝 |
|