Excel VBA質問箱 IV

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

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


29410 / 76738 ←次へ | 前へ→

【52610】Re:データ貼り付け後の書式変更反映
発言  モンド  - 07/11/21(水) 16:00 -

引用なし
パスワード
   ▼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.〜"を使用しない
記述の仕方を出来たら教えていただけますでしょうか?

よろしくお願いします。

0 hits

【52608】データ貼り付け後の書式変更反映 モンド 07/11/21(水) 15:21 質問
【52609】Re:データ貼り付け後の書式変更反映 Jaka 07/11/21(水) 15:43 発言
【52610】Re:データ貼り付け後の書式変更反映 モンド 07/11/21(水) 16:00 発言
【52611】Re:データ貼り付け後の書式変更反映 Jaka 07/11/21(水) 16:15 発言
【52612】Re:データ貼り付け後の書式変更反映 モンド 07/11/21(水) 16:58 お礼

29410 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free