Excelマクロのエラー

質問

お世話になります。

マクロは、超初心者で只今、本やネットで勉強中なのですが、本の通りに作成しましたが、
エラーが出てしまいます。
急いでおりまして、大変お手数ですがご教示お願いできますでしょうか？

Excel2007でマクロを作成中（実際に業務で使用する環境は2003です）。

2点あります。

(1)サブフォルダ内の全ブックを開く
　ファイルは開くのですが、下記のエラーが出てしまいます。
　C：￥...... "\web保存\"が見つかりません。ファイル名およびファイルの保存場所が
　正しいかどうかを確認してください。

(2)開いたファイルをhtm保存する。
　htm保存できるのですが、ファイル名が「●●●.xls.htm」
　となってしまい、元のファイル名の.xlsの拡張子が付いたままです。
　ファイル名を変えず、「●●●.htm」となるようにしたいです。

どうぞ宜しくお願い致します。

(1)サブフォルダ内の全ブックを開く

Sub 全ブックを開く()
Dim パス名 As String
Dim ファイル名 As String

パス名 = ThisWorkbook.Path & "\web保存\"
ファイル名 = Dir(パス名 & "*.xls*")

Do While ファイル名 <> " "
Workbooks.Open パス名 & ファイル名
ファイル名 = Dir()
Loop
End Sub

(2)開いたファイルをhtm保存する

Sub htm保存()

Dim wb As Workbook
Dim wbname As String

For Each wb In Workbooks
wb.Activate
If wb.Name <> ThisWorkbook.Name Then
wb.SaveAs FileName:=ThisWorkbook.Path & "\" & wb.Name & ".htm", FileFormat:=xlHtml, CreateBackup:=False
wb.Close savechanges:=False

End If
Next
End Sub

回答No.1

keithin · ベストアンサー

＞(1)

ご質問に掲示されたのが「実際のマクロをそのままコピーして貼り付けている」なら

Do While ファイル名 <> "ここに半角のスペースが挟まっている"

のが原因かもしれません。

Do While ファイル名 <> ""

のように、しっかり「""」とします。

＞(2)

wb.nameは「ブック名.xls」のようですから、単純に後ろに".htm"をくっつけたらそうなります。

作成例：
wb.SaveAs FileName:=ThisWorkbook.Path & "\" & split(wb.Name, ".")(0) & ".htm", FileFormat:=xlHtml, CreateBackup:=False

お礼

早々のご回答、非常に助かりました。

無事、エラーも消え、ファイル名もうまく表示することが出来ました。
これで業務もスムーズに進みそうです。

どうもありがとうございました。