所定のフォルダからワードファイルを開くマクロについて

前提・実現したいこと

VBAを使って指定したフォルダ中のワードファイルを開くマクロを作ろうとしています。しかし、下記のマクロで実行すると、エラー(型が一致しません)が表示され、ワードファイルを開くことが出来ません。該当のソースコードの１７行目が問題の箇所であることは確認できております。エラー原因とどのように修正すればよいかご教示ください。お願いします。

発生している問題・エラーメッセージ

実行時エラー１３ 型が一致しません

該当のソースコード

Sub ファイル名取得()
```
Dim fso As FileSystemObject
```
```
Set fso = New FileSystemObject
```
```
Dim fl As Folder
```

Set fl = fso.GetFolder("フォルダ名のパス") ' フォルダを指定

```
Dim objWord As Word.Application
```

Set objWord = CreateObject("Word.Application")

```
objWord.Visible = True
```
```
Dim objDoc As Document
```
```
Dim f As File
```
```
Dim i As Long: i = 2
```

For Each f In fl.Files ' フォルダ内のファイルを取得

```
Set objDoc = objWord.Documents.Open(f)
```
```
Debug.Print f
```
Next
'
End Sub

試したこと

17行目を非表示にして実行すると、イミディエイトウィンドウにパスを表示させることができることは確認済みです。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答2件

ベストアンサー

Set objDoc = objWord.Documents.Open(f)

OpenメソッドにFileオブジェクトを渡しているので、型不一致のエラーになっています。パスを渡せばエラーは解消されるかと思います。

lang
1Set objDoc = objWord.Documents.Open(f.Path)

リファレンス

投稿2021/10/09 14:04

jhashimoto

総合スコア843

taakfue

2021/10/10 08:23

回答ありがとうございます。. f.pathに変更したらうまく実行できました。型に関する理解が不十分なので、今後も質問させてもらうかもしれません。その時はよろしくお願いします。

行動規範の内容に同意します

jhashimotoさんの回答が原因ですね。

下記のコードは、フォルダーにワード以外のファイルがある可能性があるときに使用してください。

考えられる原因としては、ワードファイル以外のファイルを開こうとしているということですね。

エラーが出たときに、f変数の中身を確認してみてください。変数にマウスをかざすと中身が表示されます。

ワード以外のファイルが存在する可能性があるなら、下記のように拡張子をチェックしてから開いたらいいでしょう。

vba
1    For Each f In fl.Files    ' フォルダ内のファイルを取得
2        If f Like "*.doc*" Then
3            Set objDoc = objWord.Documents.Open(f.Path)
4        End If
5    Next