- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
不好意思,執行還是有問題,請大師幫忙看看:
Dim Rng(1 To 2) As Range, Fs As Object, A As Object, E As Range
Application.ScreenUpdating = False
With Workbooks("2011 Shipping for NE.xlsx") '請改成要複製活頁簿的名稱(已經打開)
Set Rng(1) = .Sheet("Booking").[B3:B35] '這裡就執行不下了
Set Rng(2) = .Sheet("Booking").[A1] 'Rng(2) 存檔名稱的儲存格
End With
Set Fs = CreateObject("Scripting.FileSystemObject") 'FileSystemObject 物件 提供對電腦檔案系統的存取。
Set A = Fs.CreateTextFile("P:\BCM\Shipping Doc\PJ\HK Packing\" & Rng(2) & ".txt", True) '建立文字檔案
'CreateTextFile 方法 建立一個指定的檔名並且傳回一個用於該檔案讀寫的 TextStream 物件。
'如果可被覆蓋其值為 True，其為 False 時無法覆蓋
For Each E In Rng(1) '依序處裡複製範圍的儲存格
A.WriteLine (E) '儲存格寫入文字檔
Next
A.Close
Application.ScreenUpdating = True |
|
發表於 2012-1-15 16:15
| 
