Excel VBA質問箱 IV

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

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


48098 / 76732 ←次へ | 前へ→

【33571】配列参照渡しとファイル操作について
質問  VBAビギナー  - 06/1/16(月) 0:06 -

引用なし
パスワード
   inoue様 ご指摘ありがとうございました。
プログラムを少し変更していますので引き続き勉強しています。

Seasonというファイルの中に




という形でデータを入れています。File_Pathでこのファイルを開きデータを配列に
いれ、Dir_Name()のファルダ配下にSeason().txt
という形で存在しているかをチェックするプログラムをつくりたいのですが、
まだはじめて1ヶ月くらいなため以下のところまでしかできていません。
また、ファイルの存在をチェックするFileExists関数も使用可能ならどのように使用したらよろしいでしょうか?


Option Explicit
Const path1 = "C:\Documents and Settings\デスクトップ\temp"

Sub FullPath_Get()      'パス取得用
Dim i As Integer, Dir_Name(6) As String
For i = 0 To 6
Select Case i
  Case 0
      Dir_Name(i) = "ONE"
  Case 1
     Dir_Name(i) = "TWO"
  Case 2
    Dir_Name(i) = "THREE"
  Case 3
    Dir_Name(i) = "FOUR"
  Case 4
    Dir_Name(i) = "FIVE"
  Case 5
    Dir_Name(i) = "SIX"
  Case 6
    Dir_Name(i) = "SEVEN"
  End Select
  Call File_Path
Next i
End Sub

sub File_Path()
Dim Season_path as string,Season() as string,x as integer
Season_path=path1 & "\"&"Season.txt"
file_No = FreeFile
Open Season_path For Input As file_No
  Do While Not EOF(file_No)
    Line Input #file_No, Season_data
    Season = Split(Season_data)
  Loop
  Close file_No
  for x = 0 to Ubound(Season,1)  '配列の最大値まで繰り返している。
  'これ以降はまだ作成中
  next x
   
End Sub

0 hits

【33571】配列参照渡しとファイル操作について VBAビギナー 06/1/16(月) 0:06 質問

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