[[20130516150953]]　『ExecuteExcel4Macroの読み出し』（いそ）　ページの最後に飛ぶ

『ExecuteExcel4Macroの読み出し』（いそ）
お世話になります。
開いていないBookデーターの読み出し時にセルに改行が含まれているデーターを読み出すと「実行エラー13」が表示されます。

dda = Replace(ExecuteExcel4Macro(Target & "R" & n & "C" & s), vbLf, "")

ターゲットのBookのデーターをひとつずつ読み込みます。

しかし、自bookセルを読み込み時にはエラーが出ません。

Replace(ExecuteExcel4Macro("GET.CELL(" & i & ")"), vbLf, "")・・・OK

どうぞ宜しくご教示下さる様お願いします。

Windows7,Excel2010

 同じ環境で実験してみましたが、問題なく読めましたけど。

 改行の有無が原因であることは明らかなのですか？

 (半平太) 2013/05/16(Thu) 15:36

 そんなことはないだろうね。
 エラーは、別の原因だろうなぁ・・・・

 このコードの上に

 MsgBox Target & "R" & n & "C" & s

 といれて、メッセージ表示される文字列が、規則通りの正しいセル参照文字列かどうか確認してはいかが？

 念のため『正しい文字列』は

 'c:\●●\■■\[ブック名.xls]シート名'!R1C1

　といったもの。

 (ぶらっと)

早々のご見当ありがとうございます。

Bookをひとつずつ中身を読んで15番目のBookの52番目で引っかかります。

MsgBox Target & "R" & n & "C" & s
では適正なPathとBook名とアドレスが表示されます。

以上、宜しくお願いします。

 ＞Bookをひとつずつ中身を読んで15番目のBookの52番目で引っかかります。

 一つ前、つまり、15番目のBookの51番目のデータに手入力で改行を入れてみて、
 こんどは51番目が実際にトラブルかどうかテストしてみてください。

 (半平太) 2013/05/16(Thu) 16:30

半平太さま

お世話になります。
前のセル(51)に同じLF付の分をコピーした所52同様に51番目で止まりました。
51番目が実際にトラブりました。

宜しくお願いいたします。

 想像だけど、ExeCuteExcel4 でエラーになっているのではなく　Replace　でエラーになっているのでは？
 たとえば、参照セルの値がエラー値の場合なんか、そうなるね。

 Dim vvv As Variant といった変数を用意して

 vvv=ExecuteExcel4Macro(Target & "R" & n & "C" & s)
 dda = Replace(vvv, vbLf, "")

 こうしたら、エラーで止まるのはどちらだろうか？

 (ぶらっと)

 ＞前のセル(51)に同じLF付の分をコピーした所52同様

 コピーしちゃうと、原因が他にあっても分からなくなります。

 今まで上手く行っていたデータに、
 単に改行を加えただけのデータでテストする必要があります。

 (半平太) 2013/05/16(Thu) 16:46

半平太さま

お世話様です。
51番と52番が通りました。

52番のセルデーターにLFが3個入っていましたが2個に減らし、
51番のセルデーターにLFを3個入れましたが通りました。

データーを見直してみます。
お手数をおかけしました。

ありがとうございました。

コメント返信：