- 帖子
- 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
|
|
發表於 2013-2-4 20:44
| 
發表於 2013-2-5 15:58
| 