返回列表 上一主題 發帖

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

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

有做一個EXCEL VBA,檔案如下。
QAA.rar (13.49 KB)

我有開啟兩個視窗,一個是上面提供的EXCEL檔案,裡面有一個按鈕,按下可以複製然後縮小EXCEL視窗。
QAA.JPG
2021-11-3 10:41


另一個視窗是記事本,目前想要讓EXCEL內AA工作表的數據,貼在記事本上,類似CTRL+V的感覺,請問該如何以VBA呈現?

本帖最後由 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

回復 2# samwang

samwang大大,有沒有別的方法呢?  不要另外新增文字檔,然後將資料寫入的方式。

像是自動幫我們按 CTRL+V 這樣?

TOP

回復 3# zz0660

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

TOP

回復 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

本帖最後由 quickfixer 於 2021-11-3 17:00 編輯

回復 3# zz0660

這裡抄來的,原文網址
你run看看,像這樣嗎?秒數自己調整

    Sub Copy()

Dim file_name As String

Range("A2:A32").Copy
ActiveWindow.WindowState = xlMinimized

Delay (1) '等1秒

file_name = "C:\Windows\system32\notepad.exe" '記事本開新文件
Shell file_name, vbNormalFocus
AppActivate "未命名 - 記事本" '記事本視窗的標題
Delay (3) '等3秒

SendKeys "{ENTER}", True 'ctrl+v之前要先隨便輸入個東西
SendKeys "{BACKSPACE}", True
Delay (0.3) '等0.3秒

SendKeys "^V", True


End Sub

Sub Delay(setdelay As Single)

Dim StartTime As Double, NowTime As Double
StartTime = Timer * 100
setdelay = setdelay * 100
Do
NowTime = Timer * 100
DoEvents
Loop Until NowTime - StartTime > setdelay


End Sub

TOP

回復 6# quickfixer


    補充一下開舊檔的方法,像是c:\test.txt檔
file_name = "C:\Windows\system32\notepad.exe" & " " & "c:\test.txt" '執行檔檔名+舊檔路徑檔名
Shell file_name, vbNormalFocus
AppActivate "test - 記事本" '標題要改
注意,標題不一定長這樣,要看你的畫面為主

TOP

回復 5# samwang

感謝 samwang & quickfixer 大大的熱心協助處理問題。
目前本人已試出VBA想要呈現的方式,如下↓

Sub Copy()

    [A2:A32].Copy
  
    ActiveWindow.WindowState = xlMinimized
   
    AppActivate "未命名 - 記事本"

    SendKeys "^V", True


End Sub

紅字為追加的部份,這個就是綜合兩位大大提供的想法來改,再次感謝!

TOP

        靜思自在 : 人生沒有所有權,只有生命的使用權。
返回列表 上一主題