Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

153 / 886

←次へ　｜　前へ→


	【757】Re:Wordに挿入したExcelｼｰﾄ内のﾃﾞｰﾀの取得

マナ - 13/5/8(水) 21:10 -


	引用なし

	パスワード

>結局、WordVBAでExcelｼｰﾄのｾﾙのﾃﾞｰﾀを取得することはできそうもないようです。

ちょっと調べながらやってみました。こんな感じできそうです。

>1.Wordで『Excelｼｰﾄの挿入』ﾎﾞﾀﾝでExcelｼｰﾄを挿入後、WordVBAでExcelｼｰﾄのｾﾙのﾃﾞｰﾀを取得する方法を教えて下さい。
>2.WordVBAでExcelｼｰﾄのｾﾙにﾃﾞｰﾀを入力する方法はあるのでしょうか。
>以上よろしくお願い」します。。
Sub test()　'挿入したエクセルを選択して実行
　　Dim myOle As Word.OLEFormat
　　Dim xlApp As Excel.Application
　　Dim myStr As String

　　With Selection
　　　　If .Type <> wdSelectionShape And _
　　　　　　.Type <> wdSelectionInlineShape Then Exit Sub
　　　　Select Case .Type
　　　　　　Case wdSelectionShape
　　　　　　　　If .ShapeRange(1).Type <> msoEmbeddedOLEObject Then Exit Sub
　　　　　　　　Set myOle = .ShapeRange(1).OLEFormat
　　　　　　Case wdSelectionInlineShape
　　　　　　　　If .InlineShapes(1).Type <> wdInlineShapeEmbeddedOLEObject Then Exit Sub
　　　　　　　　Set myOle = .InlineShapes(1).OLEFormat
　　　　End Select
　　End With
　　
　　With myOle
　　　　If Not .ClassType Like "Excel.Sheet*" Then Exit Sub
　　　　.DoVerb VerbIndex:=wdOLEVerbOpen
　　　　With .Object
　　　　　　Set xlApp = .Application
　　　　　　myStr = .Sheets("Sheet1").Range("A1").Value　'★Excelｼｰﾄのｾﾙのﾃﾞｰﾀを取得
　　　　　　.Sheets("Sheet1").Range("A1").Value = "test入力"　'★Excelｼｰﾄのｾﾙにﾃﾞｰﾀを入力
　　　　　　.Close
　　　　　　xlApp.Quit
　　　　End With
　　End With
　　
　　MsgBox myStr
　　
　　Set xlApp = Nothing

End Sub

545 hits

▼

【548】Wordに挿入したExcelｼｰﾄ内のﾃﾞｰﾀの取得 とき 07/12/13(木) 13:56