教えてください。

質問

教えてください。
EXCEL2003にて、以下のマクロが正常に動いているBOOKがあります。
そのBOOKのマクロをコピーして別のBOOKに貼り付けて、実行すると
「コンパイルエラー　Sub　またはFunctionが定義されていません」
というエラー表示となります。
いといろと調べてはいるのですが、解決できない状況です。

因みにマクロのインポートを使っても同様となります。

Sub MacroDOG()

Dim FileName As String
Dim strDATA As String
Dim iFN As Integer 'オープンファイル番号

On Error GoTo Err

FileName = ThisWorkbook.Path & "\dogs.csv"
iFN = FreeFile
Open FileName For Input As #iFN
Line Input #iFN, strDATA

Range("CX3").Value = Piece(strDATA, ",", 1)
Range("CY3").Value = Piece(strDATA, ",", 2)
Range("CZ3").Value = Piece(strDATA, ",", 3)
Range("DA3").Value = Piece(strDATA, ",", 4)
Range("DB3").Value = Piece(strDATA, ",", 5)
Range("DC3").Value = Piece(strDATA, ",", 6)
Range("DD3").Value = Piece(strDATA, ",", 7)
Range("DE3").Value = Piece(strDATA, ",", 8)

Exit Sub

Err:
MsgBox "確認して下さい。", vbInformation

End Sub

よろしくお願いいたします。

回答No.1

MARU4812 · ベストアンサー

タイトルは、一覧表を見たときに判別できるよう分かり易いものを付けてください。

Piece っていう関数は見たこと無いですね。
WEB 上で検索しても引っ掛からないので、自作の関数ではないでしょうか。

通常は、標準モジュール等で定義します。
ただ、凝った人は、DLL にして参照設定する場合もあるかもです。

標準モジュール等がある場合はそれもインポート(コピーでもいいけどモジュール名とかも合わせた方が良い)してみてください。

正常に動くファイルで
・コードの Piece を選択状態にし、右クリックで「定義」に飛んでみる。
・[F2]キーで「オブジェクトブラウザ」を表示し、Piece を検索してみる。
・メニューの[ツール]-[参照設定]でチェックの付いている DLL を確認する。
あたりをすると何か分かるかもしれません。

お礼

タイトルの件、失礼いたしました。以後気をつけます。

ありがとうございます。
ご指摘の通り、Pieceの定義を探したところ、ありました。
この定義付きで、実行したところうまくいきました。
本当にありがとうございました。