CSVファイルを読み込むには？？ (ID:113245)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちなみにVBA(エクセル)ではこーゆー流れのものです。↓↓ Private Sub ComboBox1_Change() Dim Target As Long Dim myDate As String '指定日付 Dim Days As String '間隔（日） Dim today As String today = Format(Now(), "ggge年m月d日") 'Sheet1.Cells(Target + 2, 13) = today Target = ComboBox1.ListIndex If Cells(Target + 2, 9) = "" Then '*免許を持っていない場合* Label19 = "無期限" '*無期限と表示* Label21 = "＊＊＊日" '*残数を＊＊＊日とする* Else myDate = Cells(Target + 2, 9).Value Label19 = Format(myDate, "ggge年m月d日") Sheet1.Cells(Target + 2, 11) = DateDiff("d", Date, myDate) & "日" Label21 = Format(Sheet1.Cells(Target + 2, 11), "d日") End If Label15 = Cells(Target + 2, 2) '*名前* 'TextBox1 = Cells(Target + 2, 2) '*名前* Cells(Target + 2, 1) = Label15 Label23 = Cells(Target + 2, 3) '*フリガナ* Label16 = Cells(Target + 2, 4) '*現住所* Label17 = Cells(Target + 2, 5) '*連絡先* Label14 = Cells(Target + 2, 6) '*携帯* Label18 = Cells(Target + 2, 7) '*アドレス* Label20 = Format(Cells(Target + 2, 10), "ggge年m月d日") '*写真撮影日* If Dir(Cells(Target + 2, 8)) <> "" Then '*if文。画像の有無* Image1.Picture = LoadPicture(Cells(Target + 2, 8)) '*画像があるとき：指定ファイルを表示* Else Image1.Picture = LoadPicture() '*画像がないとき：無表示* End If End Sub