質問
2017年11月28日火曜日 9:34
アクセスVBAで質問です。
フォームから複数の項目をタブ区切りでクリップボードにコピーしたいのですが、うまく動作しません。
コードは以下内容で記述しました。
Private Sub コマンド1314_Click()
Dim txt As String: txt = snd会社名.Value & vbTab & snd部署.Value & vbTab & snd担当.Value
Dim cmd As String: cmd = "cmd /c ""echo " & txt & "I clip"""
CreateObject("WScript.Shell").Run cmd, 0
End Sub
どのようにすればよろしいでしょうか。
動作環境は
Windows10 64bit
ACCESS 2016
です。
すべての返信 (1)
2017年11月29日水曜日 1:43
下記のようにしてください。
Private Sub コマンド1314_Click()
Dim txt As String: txt = "コピーするテキスト"
Dim cmd As String: cmd = "cmd /c ""echo " & txt & "| clip"""
CreateObject("WScript.Shell").Run cmd, 0
End Sub
| clip の先頭の文字は、I（アルファベットのアイ）ではありません。シフトキーを押しながら、\ キーを押して入力します。
ただ、VBAでクリップボードのデータを扱うときは、下記の方法が一般的かな。