Excel VBA質問箱 IV

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

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


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

33441 / 76738

←次へ　｜　前へ→


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

ウッシ - 07/4/20(金) 11:56 -


	引用なし

	パスワード

こんにちは

>インポート元の、A2:J2、B3,E3,G3、B5,H5、B6,H6、B7,E7,G7、B8,H8、B9,H9
を
>インポート先に、1行の各セルに、上の順番で並べたいのです。
「,」「、」の違いが気になるのですが、こんな感じでしょうか？

Sub test1()
　　Dim strDBPath As String
　　Dim v　　　　 As Variant
　　Dim m　　　　 As Variant
　　Dim mArray　　As Variant
　　Dim i　　　　 As Long
　　Dim j　　　　 As Long
　　Dim r　　　　 As Range
　　
　　v = Application.GetOpenFilename("エクセルブック(*.xls),*.xls", , , , False)
　　If VarType(v) = vbBoolean Then Exit Sub
　　
　　strDBPath = "='" & Replace(v, Dir(v), "[" & Dir(v) & "]") & "Sheet1'!"

　　mArray = Array("A2:J2", "B3", "E3", "G3", "B5", _
　　　　　　　　　　"H5", "B6", "H6", "B7", "E7", "G7", "B8", "H8", "B9", "H9")
　　　　　　　　　　
　　i = Cells(Rows.Count, 1).End(xlUp).Row + 1
　　Rows(i).ClearContents
　　j = 1
　　For Each m In mArray
　　　　For Each r In Range(CStr(m))
　　　　　　With Cells(i, j)
　　　　　　　　.Formula = strDBPath & r.Address
　　　　　　　　.Value = .Value
　　　　　　End With
　　　　　　j = j + 1
　　　　Next
　　Next
End Sub

インポートデータを1セルずつ処理してますので、その値で必要なデータかどうかの
判定処理も入れられますけど、どのセルで判定するのか分かりませんので何もして
ません。

0 hits

▼

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