VBSを使って Excel の任意シートを開くには

質問

ＶＢＳ初心者です。知識のある方、ご教授願えませんか。

VBScript で同一フォルダにある「複数の Excelファイルを順番に任意のシートを選択して
開く」というのを実行したいのですが、どのようにすればよいでしょうか

仕事で急に必要になったのですが、VBScript の知識がなく困っていおります。

色々と調べてシート名が「半角英数字」なら成功したのですが、「漢字」の場合は「インデックスが有効範囲にありません」とエラーメッセージがでます。
「漢字」のシートを選択した場合でも成功するようにしたいのですが、どなたかご教授願えませんでしょうか？

（●成功例）「半角英数字」のシートを指定した場合

Option Explicit
Dim bk, ex, f, gf, sh, so
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = true
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "xlsm" Then
Set bk = ex.Workbooks.Open(gf & "\" & f.Name)

ex.worksheets("shukei").select

Set sh = bk.Worksheets(1)
End If
Next
MsgBox("Finished!")

（●失敗例）「漢字」のシートを指定した場合

Option Explicit
Dim bk, ex, f, gf, sh, so
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = true
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "xlsm" Then
Set bk = ex.Workbooks.Open(gf & "\" & f.Name)

ex.worksheets("集計").select

Set sh = bk.Worksheets(1)
End If
Next
MsgBox("Finished!")

回答No.1

kkkkkm · ベストアンサー

多分文字コードの問題だと思いますのでメモ帳でしたら該当VBSをメモ帳から文字コードをANSIにして開き「集計」が文字化けしてたら修正して保存して、再度実行してみてください。

お礼

kkkkkmさま。
ご回答ありがとうございました。文字コードをANSIにて保存し直したところ、改善致しました。
本当に助かりました。感謝申し上げます。

回答No.3

imogasi

失敗例の方で、やってみたが、参考までに。
>ex.worksheets("集計").select
は、bk.worksheets("集計").selectではないですか？
bkブックには、必ず「集計表」という、シートがありますか？
存非のチェックを入れて、対処のコードをいれた方がよいかも。
＞Set sh = bk.Worksheets(1)で言う、Worksheets(1)との関係は。
VBAコードだけをあげて、「誤りが出ました」では、一般に事情が分からないと思いませんか。
エラーは（１）コードがまずい（２）問題にしている、データとのコードの相性が間違っている（予想外のデータの出現など）　　の２つあり、（２）を軽視してはいけない。
初心者を脱すると、ほとんど（２）のタイプで苦しむように思う。それも２つ以上のくみあわせで。
＝＝＝
私が勝手に質問のコードを変えてやった例
・ｘｌｓｍが、小生の当フォルダーにたくさんあるので、先頭の５つに限った。
・bk.Worksheets("Sheet1").Select
Set sh = bk.Worksheets(1)
は勝手に想像で変えた。
＝＝＝＝
Sub test01()
Dim bk, ex, f, gf, sh, so
Set fso = CreateObject("Scripting.FileSystemObject")
'Set gf = Fso.GetFolder(".")
Set gf = fso.GetFolder("C:\Users\ｘｘ\Documents")
Set ex = CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = True
n = 0
For Each f In gf.Files
If LCase(fso.GetExtensionName(f.Name)) = "xlsm" Then
n = n + 1
MsgBox gf & "\" & f.Name
Set bk = ex.Workbooks.Open(gf & "\" & f.Name)
bk.Worksheets("Sheet1").Select
Set sh = bk.Worksheets(1)
bk.Close
End If
If n >= 5 Then Exit For
Next
MsgBox ("Finished!")
End Sub

お礼

imogasiさま。
丁寧にご回答頂きありがとうございました。感謝申し上げます。

回答No.2

Qchan1962

すでに回答が出ておりますが、
VBS スクリプトとして使えるのは ANSI か UTF16です。
編集で開き、ANSI か UTF16 で保存し直すのが、早いと思いますよ。

お礼

Qchan1962さま。
ご回答ありがとうございました。感謝申し上げます。