英語OSでのエクセルを使ったプログラム

Aベストアンサー

「既存のモジュール、プロジェクト、または、オブジェクトライブラリで、名前が衝突している」と言うエラーです。

同じOfficeと言っても、日本語版と英語版では、予約語が異なっていたり、識別子の名前で使える文字が違ったりします。

ですので、ある変数や関数の名前が、日本語版では使用出来るのに、英語版では予約語になっていて使えない、と言う事が起きます。

また、同じ日本語版でも、ProfessionalバージョンとStandardバージョンの間で、同様の事が起きます。

どうやら、日本語版と英語版のProでは動いていて、Standardで動いてないようなので、日本語版のstanderdバージョンを用意してファイルを開き、マクロエディタ（ＶＢエディタ）の画面を呼び出して、開いているプロジェクトのマクロを、すべてコンパイルしてみて下さい。

名前が衝突してコンパイル出来ない場合、出来ない原因になっている場所が強調表示され、何が悪いか（どの名前が衝突の原因か）突き止められる筈です。

Aベストアンサー

提案としては、今のところ、このようなものが考えられます。

・Excelの"QueryTable" を使う

・Open infile For Input As #fileNo
のスタイルをやめて、FileSystemObject のOpenTextFile で読む。(ReadLine か、ReadAllを使う)

・Open infile For Input As #fileNoではなく、以下の様なバイナリで読んでいく。

　Open inFile For Binary Access Read As #fileNo
　bufbyte = InputB(LOF(fileNo), #fileNo) ''bufbyte は、byte 配列変数

実際は、試してないので、はっきりしたことは言えません。

Aベストアンサー

International プロパティで取得できるようです。

If Application.International(xlCountryCode) = 81 Then
MsgBox "日本語"
Else
MsgBox "その他"
End If

'81' というのは当方の環境で返る値です。正確な国番号はわかりません。
その他の主な国番号は次の通り。
1 = US English
33 = French
49 = German

参考URL：http://www.microsoft.com/JAPAN/developer/library/off2000/VBAXL/xlproInternational.htm

Aベストアンサー

インストールしたOfficeの中に「Micrososft Office ツール」がありませんか？
その中に「Microsoft Office言語ツール」があればどの言語がインストールされているか見ることが出来ます。

2007はよくわかりませんが私の2010では「日本語」と「英語」（実際はJapaneseとEnglish )がインストールされていますので
OSの言語に関係なくOfficeの表記言語を変更できます。

ない場合は追加インストール（インストールする際に「標準」ではインストールされていない筈）して
「Micrososft Office ツール」を追加してみてください。

参考URL：http://snow-white.cocolog-nifty.com/first/2010/03/office-2007-lan.html

Aベストアンサー

日本語かどうかの判定関数です。
引数の中身が日本語ならTrueをそれ以外ならFalseを返します。

－－－－－－－－－－－－－－－－－－
Function IsJapan(Arg As String) As Boolean
IsJapan = Not (LenB(StrConv(StrConv(StrConv(StrConv(Arg, vbWide), vbHiragana), vbNarrow), vbFromUnicode)) = Len(Arg))
End Function

Aベストアンサー

すでに出ていますが、コンパネのRegional and Language Optionsで
「Language」タブのInstall files for East Asian languages チェックをいれ、必要なファイルがWindowsにはいれば、通常表示には問題ありません。

ただ一部のソフトでは、システムレベルで英語では動作に不具合がある場合、
同じコンパネの「Advanced」タブのLanguage for non-Unicode programs で 「Japansese」を選ぶことで解決するのですが、これを使用途中にやるとOutlook Expressの過去メールが見えなくなるかもしれません。
システムが切り替わるので、新たな画面では新しいプロファイルをつくるからです。

とここまでは一般的なソフト利用上の設定として、私がOffice2000の頃、体感したことです。

しかし書きながら調べていて気がついたことは、問題はExcelのCSVの吐き出し方にあるようです。
ネット上には質問者さんと似たようなケースに遭遇しているケースがあるようです。

http://www.tek-tips.com/viewthread.cfm?qid=1172405&page=1
http://macdiggs.com/2007/11/08/japanese-language-cvs-export-for-excel/

上記の後者のやり方をみても、文字コードの吐き出し方の関係で、やはりだめのようです。
リンクは見失いましたが、MSサイトではその言語のOfficeを使用することを推奨していました。

ただ後者の投稿へのコメントにもありますが、XMLに書き出すと解決したという書き込みがいくつかあったので、それで試してみてはどうでしょう。
現在自宅で2003がないので、試せないのですが。

すでに出ていますが、コンパネのRegional and Language Optionsで
「Language」タブのInstall files for East Asian languages チェックをいれ、必要なファイルがWindowsにはいれば、通常表示には問題ありません。

ただ一部のソフトでは、システムレベルで英語では動作に不具合がある場合、
同じコンパネの「Advanced」タブのLanguage for non-Unicode programs で 「Japansese」を選ぶことで解決するのですが、これを使用途中にやるとOutlook Expressの過去メールが見えなくなるかもしれません。
システム...続きを読む

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

Aベストアンサー

当然ながらVBからIE、Officeまですべてオリジナル版(English)を使用します。
またセットアッププログラムも当然ですが英語環境で生成し直しです。
⇒VB付属のデストリビューションウィザードをご利用でしょうか？
　できればマルチリンガル対応のInstallShieldをお勧めします。

海外ユーザの場合、営業がしっかりとユーザ対応をやってくれればいいのですが、
開発側に飛び火した場合は、はっきり言ってかなり面倒な事になります。
モジュール単位で慎重に行った方がいいでしょう。(経験談)

P.S.
補足ですが、マイクロソフトとのMSDN契約はご存知でしょうか？
日本語版から英語版、中国語版と多言語でかつ、
OSから開発環境、Office等までかなり安く揃える事ができますし、
最新版も定期的に送ってもらえます。
個人開発でないのならば組織として契約を検討してみてはいかがでしょうか？

参考URL：http://www.microsoft.com/japan/developer/default.asp

Aベストアンサー

＞これは、まず範囲を選択して、入力チェック()を呼ぶことなのでしょうか
書いたモジュールは範囲が指定してあります。（"A1:H11"は間違いです。質問からすると"A1:H1"です）何もしないで入力チェックを実行します。
モジュールを CountA(Selecton) に変えれば任意の選択範囲がチェックの対象になります。任意の範囲を選択して実行します。
メッセージは確認するためで、IF ・・・・ で入力有無が判定できます。

＞ワークシート関数CountAってどうやったら出てくるんですか？？
ついApplicationと書いてしまうんですが、『WorksheetFunction.』と打てば、候補の関数名が表示されると思います。

下記の fnc入力チェック は入力有無を返すユーザー定義関数です。
書き方の例です。分かりやすくなった？この例は引数に"A1:H1"をセットしています。任意の範囲にするには Selection.Address に変えます。

Sub 入力チェック()
　　Dim 入力有無フラグ As Boolean　　　　　　　　'入力有無の答え

　　入力有無フラグ = fnc入力チェック("A1:H1")　　'モジュール内でA1～H1を指定(固定)

　　MsgBox 入力有無フラグ　　　　　　　　　　　　'帰ってきた答えをメッセージボックスで確認
End Sub

'入力有無を返すユーザー定義関数
Function fnc入力チェック(checkAddress As String)
　　If WorksheetFunction.CountA(Range(checkAddress)) > 0 Then
　　　　fnc入力チェック = True
　　Else
　　　　fnc入力チェック = False
　　End If
End Function

＞これは、まず範囲を選択して、入力チェック()を呼ぶことなのでしょうか
書いたモジュールは範囲が指定してあります。（"A1:H11"は間違いです。質問からすると"A1:H1"です）何もしないで入力チェックを実行します。
モジュールを CountA(Selecton) に変えれば任意の選択範囲がチェックの対象になります。任意の範囲を選択して実行します。
メッセージは確認するためで、IF ・・・・ で入力有無が判定できます。

＞ワークシート関数CountAってどうやったら出てくるんですか？？
ついApplicationと書いてし...続きを読む

Aベストアンサー

こんなのでよろしいでしょうか？
range("A1") → Range("A1").Row & "," & Range("A1").Column
cells(1,1) → Cells(1, 1).Address(False, False)
()や""は付けていません