VBAを勉強を始めたばかりの者です。
ややこしいのですが,ワードのVBAからエクセルを開いてエクセルから
指定したURLを開きたいのです。今,以下のように組みました。
「指定してアドレスを開く」という部分でエラーが出ます。
エラーが型が一致しませんと出ます。
非常に基本的なことを質問して申し訳ございません。お手数ですがよろしくお願いいたします。
Private Sub ボーたん()
Dim exObj As Object
Dim exlsm As Object
'Excel起動
Set exObj = CreateObject("Excel.Application")
Set exlsm = exObj.Workbooks.Open("C:\sers\you\Desktop\VBA\NEO\NEO宿泊届け.xlsm")
exObj.Visible = True
'Excelをコピー
With ActiveWindow.Selection
exObj.Workbooks("NEO宿泊届け.xlsm").Sheets("Sheet1").Range("B1:M45").Copy
End With
'Wordに貼り付け
With ActiveWindow.Selection
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, Link:=False
End With
'指定してアドレスを開く
exObj.Workbooks("NEO宿泊届け.xlsm").Sheets("Sheet2").Hyperlinks.Add(Anchor:=Range("A1"), _
Address:="https://mail.google.com/mail/u/0/#inbox", _
TextToDisplay:="yama").Follow
'エクセルファイルは保存しない
Dim myWBook As Object
For Each myWBook In exlsm.Workbooks
myWBook.Saved = True
Next
Application.Quit
'起動中のWordファイルに上書き保存andファイルを閉じる。
ActiveDocument.Close SaveChanges:=wdSaveChanges
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/02/12 23:48