| |
▼Hide さん：
少し力技になってしまいますが、OPEN 〜 # ステートメントにて、１行ずつ
読み込んで、データの頭に「’」を付けて、「文字列化」していく方法があります。
簡単なコード例
Sub sub_csv読込test()
Dim myFileName As String
Dim myFileNum As Integer
Dim mySTR As String
Dim myDATA() As String
Dim myLooP As Long
Dim myRow As Long
myFileName = "C:\Documents and Settings\user\デスクトップ\test.csv"
myFileNum = FreeFile
Open myFileName For Input As #myFileNum
Do Until EOF(myFileNum)
Line Input #myFileNum, mySTR
myDATA = Split(mySTR, ",") 'データを「，」で区切る
For myLooP = LBound(myDATA) To UBound(myDATA)
'頭に「’」を付けてセルに記述
ActiveCell.Offset(myRow, myLooP).Value = "'" & myDATA(myLooP)
Next myLooP
myRow = myRow + 1
Loop
Close #myFileNum
End Sub
こんな感じです。（ヘルプで「OPEN」を参照して下さい）
開くファイルをダイアログ指定化とか、
読み込み位置（上の例はアクティブセルを基準位置としてる）などを
もう少し作り込むとより使いやすくなるかと思います。
他にスマートなやり方もあるかもしれませんが、一応参考までに。
|
|
サボテン
- 07/7/21(土) 9:30 -
