|
>途中で止まってしまうのですが、どうしたら良いですか?
>
>'ファイルを開くダイアログを表示してファイル名を取得
> Do While GetReadFile(vntFileNames, ThisWorkbook.Path, True)
>の、GetReadFileのところで。
>subまたはfunctionが定義されていません。のメッセージが出ます。。
>
>全くの初心者なもので、見当違いな質問でしたらごめんなさい。
>ゼロからのご指導で申し訳ありませんが、何卒お願いします。
これは、GetReadFileと言うプロシージャが無い事により起こります
【20329】Re:同一フォルダ内に保存しているファイ...
Hirofumi - 04/12/5(日) 17:27 -
の私のレスで、以下の様な、四つのプロシージャが有った筈です
Public Sub ReadRle()
・
End Sub
Private Sub CSVRead(ByVal strFileName As String,・・)
・
End Sub
Private Function SplitCsv(ByVal strLine As String,・・) As Variant
・
End Function
Private Function GetReadFile(vntFileNames As Variant, ・・) As Boolean
・
End Function
此れを全て、同じ標準モジュールに記述して下さい
そして、その中の、
Public Sub ReadRle()
・
End Sub
Private Sub CSVRead(ByVal strFileName As String,・・)
・
End Sub
上記2つのプロシージャを、
【20330】Re:同一フォルダ内に保存しているファイ...
Hirofumi - 04/12/5(日) 21:50 -
のレスで書いている、
Public Sub ReadRle()
・
End Sub
Private Sub CSVRead(ByVal strFileName As String,・・)
・
End Sub
のプロシージャと入れ替えて(書き換えて)下さい
また、同じ標準モジュールに、
【20330】Re:同一フォルダ内に保存しているファイ...
Hirofumi - 04/12/5(日) 21:50 -
で書いた、
Private Function NameLetter(ByVal strName As String) As String
・
End Function
のプロシージャを追加して下さい
|
|