|
お世話になります。
Windows7pro32bit Excel2010のVBAについて質問させていただきます。
エクセルファイルを読み込んで、得意先コード別に
エクセルファイルを分割して出力する処理を作成しました。
日本(日本語OS)では正常に処理されるのですが
タイ(英語OS)では下記のエラーが表示され正常に処理されません。
(日本・タイ共に同一のインプットファイルを読み込んでおります。)
何か思いつく原因はありますでしょうか?ご教示ください。
====================================================================================================
■エラー情報
Error
Number :1004
Description:Method 'SaveAs' of object '_Workbook' failed
====================================================================================================
■ソースプログラム(抜粋)
'Buyer Department Codeを設定する
strBuyer_Department_Code = ThisWorkbook.Worksheets(1).Range("G" & j).Value
'ブック名を設定する(元エクセルファイル名_年月日_Buyer Department Code)
strFileName_Write = strFileName_Left & "_" & Format(Date, "yyyymmdd") & "_" & strBuyer_Department_Code & strFileName_Right
'確認メッセージを非表示にする
Application.DisplayAlerts = False
'エクセルを出力する
ActiveWorkbook.SaveAs Filename:=strFileName_Write, FileFormat:=gFormat ← ※おそらくここでエラーになっております※
'ブックを保存する
ActiveWorkbook.Close
'確認メッセージを表示に戻す
Application.DisplayAlerts = True
====================================================================================================
|
|