zz0660

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 1
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-11-3 10:41 | 只看該作者

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

有做一個EXCEL VBA，檔案如下。

QAA.rar (13.49 KB)

我有開啟兩個視窗，一個是上面提供的EXCEL檔案，裡面有一個按鈕，按下可以複製然後縮小EXCEL視窗。

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

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 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

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 1
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

3^#

發表於 2021-11-3 14:11 | 只看該作者

回復 2# samwang

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-11-3 15:36 | 只看該作者

回復 3# zz0660

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

5^#

發表於 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

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 30
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-25

6^#

發表於 2021-11-3 16:55 | 只看該作者

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

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 30
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-25

7^#

發表於 2021-11-3 17:13 | 只看該作者

回復 6# quickfixer

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

TOP

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 1
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

8^#

發表於 2021-11-4 14:00 | 只看該作者

回復 5# samwang

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

Sub Copy()

[A2:A32].Copy

ActiveWindow.WindowState = xlMinimized

AppActivate "未命名 - 記事本"

SendKeys "^V", True

End Sub

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

TOP