VBAでエクセルの表をワードに入力
Excel/Word2002使用です。
ワードへの入力を自動化するためにVBAを使用してエクセルの表をワードのテンプレートに渡したいのですが。
エクセルのA1:C8のセルに表として値が入力されています。
この表をコピーしてワードに貼り付けます。
ワード側は何も入力されていない文書ですが、
テンプレートが用意されているので、このテンプレートを指定してワードを立ち上げます。
ワードに貼り付けられる表はタブ区切りです。
具体的には下記コード3行目の”winword.exe”を具体的なテンプレートのパス名にしたいのですが・・・
Sub word貼り付け()
Dim mytskID As Double
Range("A1:C8").Copy
mytskID = Shell("winword.exe", vbNormalFocus)
Application.Wait Now + TimeValue("00:00:10")
Application.SendKeys "^v", True
Application.Wait Now + TimeValue("00:00:10")
Application.SendKeys "%fa", True
Range("A1").Copy
AppActivate mytskID
Application.SendKeys "^v", True
Application.SendKeys "~", True
Application.Wait Now + TimeValue("00:00:05")
Application.SendKeys "%fx", True
Application.CutCopyMode = False
MsgBox "完了しました"
End Sub
なお、上記コードも教科書通りにしたはずなのですが、
何故か「名前をつけて保存」のSendKeys "%fa"のときだと思うのですが、
ワード側ではファイルメニューの罫線が反応してしまいます。
あわせてご教授いただければ幸いです。
よろしくお願いします。
お礼
丁寧にありがとうございます。 参考になりました!