|
▼Hide さん:
少し力技になってしまいますが、OPEN 〜 # ステートメントにて、1行ずつ
読み込んで、データの頭に「’」を付けて、「文字列化」していく方法があります。
簡単なコード例
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」を参照して下さい)
開くファイルをダイアログ指定化とか、
読み込み位置(上の例はアクティブセルを基準位置としてる)などを
もう少し作り込むとより使いやすくなるかと思います。
他にスマートなやり方もあるかもしれませんが、一応参考までに。
|
|