- 帖子
- 17
- 主題
- 6
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office 2003 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-10-1
- 最後登錄
- 2022-2-18
|
我在網上拼湊了下面的代碼,Cells(i, 1)及Cells(i, 2)可正常列印,
可是在Cells(i, 3) = Workbooks(.SelectedItems(i)).Sheets("Sheet1").Range("A15").Value
無法正常讀取存至Cells(i, 3) ,請問高手是那裡出錯了
或者其它辨法取得,
製作主要的要求是:
1.選取資料夾中的*.xls或*.xlsx
2.列印所選的xls中的Sheet1 儲存格,共約60格(全部"文字格式"表示(如日期、時間、數字),也有空白格),全部不相鄰,將其變成陣列,再以陣列方式列印成 5列*12欄- Sub Test()
- Columns("A:C").ClearContents
- With Application.FileDialog(msoFileDialogFilePicker)
- .InitialFileName = "C:\Users\使用者\Desktop\" '指定初始路徑
- .AllowMultiSelect = True '開啟複選功能
- .Show
- For i = 1 To .SelectedItems.Count
- Cells(i, 1) = CreateObject("Scripting.FileSystemObject").GetParentFolderName(.SelectedItems(i)) & "\" '檔案路徑(含日文)
- Cells(i, 2) = CreateObject("Scripting.FileSystemObject").GetFileName(.SelectedItems(i)) '檔案名稱(含日文)
-
- Cells(i, 3) = Workbooks(.SelectedItems(i)).Sheets("Sheet1").Range("A15").Value '無法成功讀取
-
- 'MsgBox CreateObject("Scripting.FileSystemObject").GetFileName(.SelectedItems(i)) '檔案名稱
- 'MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(.SelectedItems(i)) & "\" '檔案路徑 '(如果是必需的,你可以自己補最後的「\」)
-
- Next
- End With
- End Sub
複製代碼 |
|