|
> strDBPath = "='" & Replace(v, Dir(v), "[" & Dir(v) & "]") & "Sheet1'!A1"
私が苦闘してかいたLen・InStr・Right等を使う方法では8行もかかったのに、見事です。助かり&勉強になりました。ありがとうございます。
> With Range("A1:J2").Offset(1)
> .ClearContents
> .Formula = strDBPath
> .Value = .Value
> End With
やりたいことを具体的に書かせていただくと、実は、
インポート元の、A2:J2、B3,E3,G3、B5,H5、B6,H6、B7,E7,G7、B8,H8、B9,H9 のセルの各データーを、
インポート先に、1行の各セルに、上の順番で並べたいのです。
>>このやり方でよいのでしょうか。
と書いたのも、上の教えてもらった方法を、私のケースにうまく効率的にあわせる方法がわからないのです。例えば上のコードの場合、すべてA1の値にならないということがいまひとつ実感できないレベルなのですので教えてください。
>Application.ExecuteExcel4Macro(ほぼリンク式)
>で調べられます
ありがとうございます。今回のみならず、知っていると今後とても有用に思えます。
>けど、リンクで判定に必要なデータだけインポートして判断しても
>いいのではと思います。
自分以外の者が使用するので、エラー・キャンセル処理に便宜かなと思ったのです。確かにおっしゃるとおりではあります。
またも質問ですがよろしくお願いします。
|
|