ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

Excel VBA 質問スレ Part68

PC,ｽﾏﾎ,PHSは 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>448 > つづき > > buf = Dir(FolderPath & "*.csv") > > Do While buf <> "" > Open buf For Input As #1 'インプットモードでファイルを開く > Line Input #1, TargetDate > Do Until EOF(1) 'ファイルの終点まで > Line Input #1, Tardt '開いたファイルを上から順に読み込んでいき、変数TargetDateに代入していく > If Split(TargetDate, ",")(1) = "" Then Exit Do > '配列に追記する > ReDim Preserve BiforeArray(Ubound(BiforeArray) + 1 To ??, 1 To 190) = Sprit(TargetDate,",") > Loop > Close #1 > buf = Dir() > Loop > > End Sub
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.315s*