5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

ACCESS総合相談所 その6

968 :名無しさん@そうだ選挙にいこう:03/01/30 12:48
>>964
Private Sub InportCSV()
Dim InputFileNum, OutputFileNum As Integer
Dim wStr As String
Dim i As Long
'インポートファイル
InputFileNUM = FreeFile
Open "C:\FullPath\InportFile.CSV" For Input As #InputFileNum
'ワークファイル
OutputFileNum = FreeFile
Open "C:\FullPath\WorkFile.CSV" For Output As #OutputFileNUM
'インポートファイルから2行削除したワークファイルを作る
i = 0
Do While Not EOF(InputFileNUM)
i = i + 1
Line Input #InputFileNUM, wStr
If i > 2 Then
Print #OutputFileNUM, wStr
End If
Loop
Close #InputFileNUM
Close #OutputFileNUM
'ワークファイルからインポート
DoCmd.TransferText acImportDelim, , "出力テーブル名", "C:\FillPath\WorkFile.CSV", True
End Sub


311 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)