| |
▼Jaka さん：
説明足らずで申し訳ありません。
貼り付けている部分は、
With wsSheet
ilngloop = intRow
Do While Not rdnySQL.EOF
For ilngCol = 0 To rdnySQL.Fields.Count - 1
.Cells(ilngloop, ilngCol + intCol) = rdnySQL(ilngCol)
Next
ilngloop = ilngloop + 1
rdnySQL.MoveNext
Loop
End With
です。
>A列を選択して、
>データ → 区切り位置 → 何もしないで 完了
>じゃダメ？
これで大丈夫でした。
ありがとうございます。
ただ、「マクロの記録」でやった際の内容そのままなので、
Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"),DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
となっています。
このサイトで「"Selection.〜" は良くない」という書き込みを見たことがあります。
まぁこれでもちゃんと機能しているのですが、"Selection.〜"を使用しない
記述の仕方を出来たら教えていただけますでしょうか？
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
