Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33444 / 76738

←次へ　｜　前へ→


	【48513】Re:非レコード形式のExcelをADOで扱いたい

ｓｙｎ - 07/4/20(金) 11:26 -


	引用なし

	パスワード

>　　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(ほぼリンク式)
>で調べられます
　ありがとうございます。今回のみならず、知っていると今後とても有用に思えます。

>けど、リンクで判定に必要なデータだけインポートして判断しても
>いいのではと思います。
　自分以外の者が使用するので、エラー・キャンセル処理に便宜かなと思ったのです。確かにおっしゃるとおりではあります。

　またも質問ですがよろしくお願いします。

0 hits

▼

【48400】非レコード形式のExcelをADOで扱いたい ｓｙｎ 07/4/16(月) 12:46