返回列表 上一主題 發帖

[發問] 關於EXCEL VBA 外部視窗 貼上問題請益

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
1# 跳轉到 »
發表於 2021-11-3 12:29 | 顯示全部帖子
本帖最後由 samwang 於 2021-11-3 12:32 編輯

回復 1# zz0660

另外新增文字檔，然後將資料寫入，謝謝。
Sub test()
Dim fs As Object, a As Object, R As Range
Application.ScreenUpdating = False
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\" & 1 & ".txt")
For Each R In [A2:A32]
    a.WriteLine (R)
Next
a.Close
Application.ScreenUpdating = True
End Sub

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
2#
發表於 2021-11-3 15:36 | 顯示全部帖子
回復 3# zz0660

有沒有別的方法呢?  不要另外新增文字檔，然後將資料寫入的方式。
>>Set a = fs.CreateTextFile("D:\" & 1 & ".txt")
直接將 1 改為您目前的文字檔的名稱，這樣就可以了
至於您提的需求，直接貼到另一個視窗的文字檔，後學沒有想到解法，謝謝

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
3#
發表於 2021-11-3 16:12 | 顯示全部帖子
回復 3# zz0660


另一個想法，讓使用者選取檔案(可同時選擇多個)，請測試看看，謝謝。

Sub test1()
Dim fs, f, R As Range, fc%, x%
Application.ScreenUpdating = False
Set fs = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "D:\"
    .AllowMultiSelect = True
    .Show
    fc = .SelectedItems.Count
    If fc = 0 Then Exit Sub
    For x = 1 To fc
        FPath = .SelectedItems(x)
        Set f = fs.OpenTextFile(FPath, 2) '8:保留原資料；2:清除原資料
        For Each R In [A2:A32]: f.WriteLine (R): Next
        f.Close
    Next
End With
Set fs = Nothing: Set f = Nothing
Application.ScreenUpdating = True
End Sub

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題