Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71180 / 76732 ←次へ | 前へ→

【10048】テキストファイルの読み込み
質問  yukko  - 04/1/5(月) 12:40 -

引用なし
パスワード
    みなさん、明けましておめでとうございます。
下記のプログラムは「りんさん」が過去に作成された
プログラムですが、これを利用したいのです・・・・すいません
 テキストファイルをSheet1に5デ−タ目から3000個
その後3000個づつB列からC列へと読み込みたいのですが
どうすれば良いでしょうか?(だいたい150列位のなると思いますが)
但し2行目から3002行目の間に読み込みたいのです
 1行目と3003行目からは関数がありますから
 テキストファイルの1デ−タ〜5デ−タ目は不要な
デ−タです。
 
Sub test()
  Application.ScreenUpdating = False
  Dim tf As Boolean
  Ifile = Application.GetOpenFilename("csv ファイル (*.csv), *.csv")
  If Ifile <> False Then
   '3000Rec毎に分割する
   Rmax& = 3000
   '開始
   tf = False: II& = 0: Nmax% = 0
   Open Ifile For Input As #1
     Do Until EOF(1)
      II& = II& + 1: Line Input #1, A$
      If II& Mod Rmax& = 1 Then
        Nmax% = Nmax% + 1
        cfile$ = "Page_" + Format(Nmax%, "000") + ".csv"
        Open cfile$ For Output As #2
        Application.StatusBar = "分割中! " + cfile$
        tf = True
      End If
      '
      Print #2, A$
      '
      If II& Mod Rmax& = 0 Then
        Close #2: tf = False
      End If
     Loop
   Close #1
   If tf = True Then Close #2: tf = False
   '
   'ブックに読み込む
   Dim wb1 As Workbook, wb2 As Workbook
   For NN% = 1 To Nmax%
     cfile$ = "Page_" + Format(NN%, "000") + ".csv"
     Application.StatusBar = "読み込み " + cfile$
     Set wb2 = Workbooks.Open(cfile$, Format:=2)
     If NN% = 1 Then
      wb2.Worksheets(1).Copy
      Set wb1 = ActiveWorkbook
     Else
      With wb2
        .Worksheets(1).Copy after:=wb1.Worksheets(NN% - 1)
      End With
     End If
     wb2.Saved = True
     wb2.Close
     Kill cfile$
   Next
   wb1.Saved = True
   Set wb1 = Nothing: Set wb2 = Nothing
  Else
   MsgBox "キャンセル", vbCritical
  End If
  Application.ScreenUpdating = True
  Application.StatusBar = False
End Sub

2 hits

【10048】テキストファイルの読み込み yukko 04/1/5(月) 12:40 質問
【10050】Re:テキストファイルの読み込み Jaka 04/1/5(月) 13:49 発言
【10053】Re:テキストファイルの読み込み yukko 04/1/5(月) 15:37 お礼
【10054】Re:テキストファイルの読み込み Jaka 04/1/5(月) 16:14 回答
【10055】Re:テキストファイルの読み込み yukko 04/1/5(月) 16:17 回答
【10057】Re:テキストファイルの読み込み Jaka 04/1/5(月) 16:48 質問
【10058】Re:テキストファイルの読み込み yukko 04/1/5(月) 17:08 回答
【10060】Re:テキストファイルの読み込み(追加説明) yukko 04/1/5(月) 18:11 回答
【10067】Re:テキストファイルの読み込み(追加説明) Kein 04/1/5(月) 22:37 回答
【10068】Re:テキストファイルの読み込み(追加説明) yukko 04/1/5(月) 23:02 お礼
【10069】Re:テキストファイルの読み込み(追加説明) yukko 04/1/5(月) 23:07 お礼
【10070】Re:テキストファイルの読み込み yukko 04/1/5(月) 23:12 お礼
【10072】書いてきちゃったんで一応載っけときます。 Jaka 04/1/6(火) 9:08 回答
【10074】Re:書いてきちゃったんで一応載っけときま... yukko 04/1/6(火) 10:27 お礼

71180 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free