• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• きゃづみぃ2011/12/13 14:15:20

  満足100pt

  Public w As Workbook
  Public 読み込み数 As Long
  Public カラム数 As Integer
  
  Sub main()
  Dim p As String
  '対象フォルダを指定してください。
  'このフォルダに この実行用のブックは 入れないでください。
  p = "C:\test\"
  
  '処理対象となる拡張子を指定して 呼び出します。
  Call jikkou(p, "csv")
  
  End Sub
  
  
  Sub jikkou(p As String, s As String)
  
  Dim bk As Workbook
  Dim gg As Long
  Application.DisplayAlerts = False
  
  Dim fdb() As String
      
  a = 1
  f = Dir(p & "*." & s, vbNormal)
  Do While f <> ""
      ReDim Preserve fdb(a)
      fdb(a - 1) = f
      a = a + 1
      f = Dir
  Loop
  
  
  For aaa = 0 To a - 2
      f = fdb(aaa)
      csvImp (p & f)
  Next aaa
  
  Application.DisplayAlerts = True
  
  End Sub
  
  
  Sub csvImp(csFName As String)
  
  Const csDelimiter As String = ","
  
  Dim FNo As Integer
  Dim FN2 As Integer
  
  Dim wsObj As Worksheet
  
  Dim strGet As String
  
  Dim outd() As String
  
  Dim i As Long
  
  FNo = FreeFile
  If Dir(csFName) <> "" Then
  
      Open csFName For Input As #FNo
      a = 1
      Do Until EOF(FNo)
          Line Input #FNo, strGet
          ReDim Preserve outd(a)
          If strGet <> "" Then
              outd(a - 1) = Split(strGet, csDelimiter)(0)
          End If
          a = a + 1
      Loop
      
      Close
      
      FN2 = FreeFile
      Open csFName For Output As #FN2
      For b = 0 To a - 2
          Print #FN2, outd(b)
      Next b
      Close
  End If
  
  End Sub
  

  スター

  • 

    6件のコメントを見る

  • inosisi 2011/12/13 16:32:05

    ありがとうございました。
    上手く行きました。
    以前分の質問で申し訳ないのですがＦ列の1,2,3,4,5,6,7,8,9,10,11,12
    以外を削除するマクロのことですが頭に数字たとえば10が付いた「10aaaa」みたいな文字があると消えないで残りますが削除する方法はありますか数字だけが残れば良いのですがすみません遅くなりまして

    スター

  • inosisi 2011/12/14 09:55:07

    Ｂ列以降になにもない場合Ａ列のみのデータファイルがあるとＡ列の1行のセル中に2つのデータが入ってしまうのは修正できますか？

    スター

  • inosisi 2011/12/14 10:33:01

    すみませんこちらのデータの最後に，が付いていてそれがいたずらしていたみたいですマクロのせいではありませんでした

    スター

  • きゃづみぃ 2011/12/14 11:17:56

    ああ　カンマありは　CSVでは　使えないですね。
    なので　エクセルは　タブ区切りなのです。

    スター

  • きゃづみぃ 2011/12/14 11:15:48

    カンマありとかだと　""でくるまないとダメです。

    スター

  • inosisi 2011/12/14 14:52:07

    ありがとうございます。
    イレギュラーでたまたまカンマありが紛れ込んでしまったので都度区切り文字呼び込みで外して使用しますありがとうございました

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2011-12-13 13:01:29

終了日時

2011-12-13 18:28:35

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ
• インターネット

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者111日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者111日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者14時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者114時間前
• 内定してほしいポケモンはいますか？匿名質問者14時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ