Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


924 / 13644 ツリー ←次へ | 前へ→

【77487】タイで実行するとエラーになります とし 15/10/16(金) 13:27 質問[未読]
【77488】Re:タイで実行するとエラーになります ウッシ 15/10/16(金) 13:56 回答[未読]
【77490】Re:タイで実行するとエラーになります とし 15/10/16(金) 15:47 発言[未読]
【77491】Re:タイで実行するとエラーになります ウッシ 15/10/16(金) 15:54 回答[未読]
【77492】Re:タイで実行するとエラーになります ウッシ 15/10/16(金) 15:57 回答[未読]
【77495】Re:タイで実行するとエラーになります とし 15/10/16(金) 16:15 お礼[未読]
【77494】Re:タイで実行するとエラーになります とし 15/10/16(金) 16:12 お礼[未読]

【77487】タイで実行するとエラーになります
質問  とし  - 15/10/16(金) 13:27 -

引用なし
パスワード
   お世話になります。

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

====================================================================================================

【77488】Re:タイで実行するとエラーになります
回答  ウッシ  - 15/10/16(金) 13:56 -

引用なし
パスワード
   こんにちは

英語版なら、コメントやファイル名にも日本語は使わない方がいいですよね。

変数または定数「gFormat」には何がセットされていますか?

エラーになる時の「strFileName_Write」はどのような内容ですか?



【77490】Re:タイで実行するとエラーになります
発言  とし  - 15/10/16(金) 15:47 -

引用なし
パスワード
   お世話になります。

ウッシさん。回答ありがとうございます。

> 英語版なら、コメントやファイル名にも日本語は使わない方がいいですよね。

  →そこは意識して、日本語を使用しないようにしておりますが
   コメントもダメだったんですね、認識いたしました。

  →コメントはほぼ全部日本語なのですが
   半角英数字等に修正すべきでしょうか。


> 変数または定数「gFormat」には何がセットされていますか?

  →使っているエクセルのバージョンにより異なる数値をセットしております。

  (1)97-2003の場合、    「gFormat」に「-4143」をセット
  (2)2007-2010の場合の場合、「gFormat」に「51」  をセット

   ※ネット上に掲載されている情報を参考にしました。


> エラーになる時の「strFileName_Write」はどのような内容ですか?

  'ブック名を設定する(元エクセルファイル名_年月日_Buyer Department Code)
  strFileName_Write = strFileName_Left & "_" & Format(Date, "yyyymmdd") & "_" & strBuyer_Department_Code & strFileName_Right

  →下記のような値が設定されており、それぞれを合体させています。

   strFileName_Left    :インプットファイル名(フルパス付)のピリオドより左側
   strBuyer_Department_Code:インプットファイル内に存在するバイヤー部門コード
   strFileName_Right    :エクセルのバージョンに応じた拡張子

   ※インプットファイルの中身を確認しましたが、バイヤー部門コードは半角文字(英数字の羅列)でした。

【77491】Re:タイで実行するとエラーになります
回答  ウッシ  - 15/10/16(金) 15:54 -

引用なし
パスワード
   こんにちは

エラーになった時の strFileName_Write を Debug.Print で取得しておいて、
新しいExcelでそのパスで名前を付けて保存する作業をマクロに記録して
みてはどうですか?

うまく保存出来ればそのコードが参考になると思います。

【77492】Re:タイで実行するとエラーになります
回答  ウッシ  - 15/10/16(金) 15:57 -

引用なし
パスワード
   コントロールパネル → 時計、言語、および地域 → 地域と言語で開く
ダイアログの管理タブの下側にある
「Unicode 対応ではないプログラムの言語」は日本語になっていますか?

という文章をネットで見つけました。
一応確認してみてはどうですか?

【77494】Re:タイで実行するとエラーになります
お礼  とし  - 15/10/16(金) 16:12 -

引用なし
パスワード
   お世話になります。

ウッシさん。回答ありがとうございます。

> エラーになった時の strFileName_Write を Debug.Print で取得しておいて、
> 新しいExcelでそのパスで名前を付けて保存する作業をマクロに記録して
> みてはどうですか?

  →タイに依頼してみます。ありがとうございます。

【77495】Re:タイで実行するとエラーになります
お礼  とし  - 15/10/16(金) 16:15 -

引用なし
パスワード
   お世話になります。

ウッシさん。回答ありがとうございます。

>コントロールパネル → 時計、言語、および地域 → 地域と言語で開く
>ダイアログの管理タブの下側にある
>「Unicode 対応ではないプログラムの言語」は日本語になっていますか?

  →こちらもタイに確認を依頼してみます。ありがとうございます。

924 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free