みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ExcelVBAマクロについて確認させてください。

ExcelVBAマクロについて確認させてください。

Wordファイルを開いて変数に保存するプログラムを作成したいのですが、下記の「With .Documents.Open(sFullPath)」のところで”型が一致しません。”と表示され、うまくいきません。
この原因は何か考えられるのでしょうか。

回避策をお教えいただければと思います。

Dim sFullPath As Variant
Dim moji As String

sFullPath = "C:\ドキュメント\test\AAAAA.docx"

With CreateObject("Word.Application")
With .Documents.Open(sFullPath)
moji = .Content.Text
.Close
End With
.Quit
End With

投稿日時 - 2018-12-13 12:42:24

QNo.9567381

困ってます

質問者が選んだベストアンサー

こちらでは問題なく実行されますよ
sFullPathが間違っているのでは
Sub Test()
  Dim sFullPath As Variant
  Dim moji As String
  sFullPath = "F:\てすと.docx"
  With CreateObject("Word.Application")
    With .Documents.Open(sFullPath)
      moji = .Content.Text
      .Close
    End With
    .Quit
  End With
  MsgBox moji
End Sub

投稿日時 - 2018-12-13 13:42:57

お礼

sFullPathの型が間違っていたことが原因でした。色々とアドバイスいただいたおかげで無事解決できました。よってベストアンサーに選ばせていただきます。
ありがとうございます。

投稿日時 - 2018-12-27 19:22:07

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

ドキュメント = MyDocuments なら試して下さい。
Sub Test()
Dim sFullPath As Variant
Dim moji As String
sFullPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\test\AAAAA.docx"
With CreateObject("Word.Application")
With .Documents.Open(sFullPath)
moji = .Content.Text
.Close
End With
.Quit
End With
MsgBox moji
End Sub

投稿日時 - 2018-12-13 13:52:54

ANo.1

私の作業環境では,そのような現象は確認できませんでした。問題なく動作します。
もう一度新しいファイルを作成して試してはどうですか?

投稿日時 - 2018-12-13 13:32:24

お礼

sFullPathの型が間違っていたことが原因でした。
おかげさまで無事解決できました。
色々とアドバイスありがとうございます。

投稿日時 - 2018-12-27 19:23:03

あなたにオススメの質問