質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

3655閲覧

Excel VBA コンパイルエラー

Aibaa-ru

総合スコア7

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2015/09/01 08:10

以前からどなたかの作成したマクロをインポートして使っていたのですが、他の人が使うことになり、インポートしたのですが、コンパイルエラー「変数が定義されていません」となり使えません。
二人共環境は同じWindows7でExcel2010です。

全くの素人なので、どうすれば動くのかが分かりません。どなたかご教授いただければ幸いです。

ツールオプションの「変数を制限する」のチェックは外してあります。
実際のコードは以下です。

Public Sub CsvIns()が黄色くなり、FrmOpenCSV.Showが青色になります。
コードはもっと続いています。

Option Explicit

'CSVファイル挿入
Global G_CSVFile$, G_CAddress$, G_CsvIO$, G_Comma$, G_Sepa$

Public Sub CsvIns()
Dim Result As Boolean
Dim Ret%
Dim Ws$

G_CsvIO$ = "IN" '必ずワークシートを開いてから実行すること。グラフは×。 If ActiveSheet.Type <> xlWorksheet Then MsgBox "ワークシートから実行してください" Exit Sub End If FrmOpenCSV.Show If FrmOpenCSV.Result Then Ws = FrmOpenCSV.SheetName G_CSVFile$ = FrmOpenCSV.FileName G_CAddress$ = FrmOpenCSV.CellAddress G_Comma$ = FrmOpenCSV.TxtComma.Text If (G_CSVFile$ <> "") And (G_CAddress$ <> "") Then If Len(Dir(G_CSVFile$)) = 0 Then MsgBox G_CSVFile$ & " が見つかりません" Exit Sub End If Call CsvSet(G_CSVFile$, Ws, G_CAddress$) Ret% = MsgBox("CSVファイルを削除しますか?", vbOKCancel, "Insert CSV") If Ret% = vbOK Then Kill (G_CSVFile$) End If End If Else MsgBox "指定が間違っています" End If Unload FrmOpenCSV

End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

コンパイラが指すとおり、「FrmOpenCSV」という名前の変数が定義されていないからです。

コードが書いてある左側のツリーに、「フォーム」というフォルダがあるはずです。
動作している方には、その中に「FrmOpenCSV」というフォームが存在しているはずです。それをエクスポートして、動作していない方にインポートしてみて下さい。

投稿2015/09/01 08:28

shanxia

総合スコア1038

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Aibaa-ru

2015/09/01 08:45

早速のご回答誠にありがとうございました。 なるほど、そうなのですね。 確かに「FrmOpenCSV」というフォームがありました。 これをインポートすればいいのですね。 大変助かりました。ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問