Excel VBA質問箱 IV

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

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


49314 / 76735 ←次へ | 前へ→

【32336】Re:貼り付けた文字列の数列への変換方法
発言  kobasan  - 05/12/12(月) 23:19 -

引用なし
パスワード
   今晩は。

コードを整理してみました。これも参考にしてください。

Dim Num As Integer
Dim Rw As Long
Dim LineDat
Dim D
Const Cols = 20 ' <--- 取得列数

Num = FreeFile
Application.ScreenUpdating = False
'Cells.ClearContents
'Range("a:a").Resize(, Cols).NumberFormatLocal = "G/標準"
Open "\test.dat" For Input As #Num
Do Until EOF(Num)
  Line Input #Num, LineDat
  D = Split(LineDat, ",")
  Worksheets("a").Range("A1").Resize(, UBound(D)).Offset(Rw).Value = D
  Rw = Rw + 1
Loop
Close #Num

D = Worksheets("a").UsedRange.Value
Worksheets("a").UsedRange.Value = D

Application.ScreenUpdating = True

0 hits

【32309】貼り付けた文字列の数列への変換方法 VBA勉強中 05/12/12(月) 17:01 質問
【32329】Re:貼り付けた文字列の数列への変換方法 kobasan 05/12/12(月) 20:41 回答
【32348】Re:貼り付けた文字列の数列への変換方法 VBA勉強中 05/12/13(火) 9:40 お礼
【32336】Re:貼り付けた文字列の数列への変換方法 kobasan 05/12/12(月) 23:19 発言

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