質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.51%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

3925閲覧

ワードのVBAで困ってます。

yu.yamaguchi

総合スコア6

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2015/02/09 03:02

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

Hyperlinks.AddAnchorに渡すパラメーターが正しくないようです。
ExcelWorksheetRangeを渡す必要があります。

lang

1Dim sh As Object ' Excel.Worksheet 2 3Set sh = exObj.Workbooks("NEO宿泊届け.xlsm").Sheets("Sheet2") 4sh.Hyperlinks.Add(Anchor:=sh.Range("A1"), _ 5Address:="https://mail.google.com/mail/u/0/#inbox", _ 6TextToDisplay:="yama").Follow

投稿2015/02/10 12:04

argius

総合スコア9388

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yu.yamaguchi

2015/02/12 23:48

ありがとうございます!上手く指定したアドレスを開くことができました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.51%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問