{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Sheet1","RDATA"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Sheet1","index":0,"n_rows":83,"n_cols":15,"rows_kept":83,"cut":false,"hidden":false,"merged":[[5,3,5,8]]}
["ファイルの読み込み"]
[]
[null,null,null,"ファイルの内容をRDATAシートに読み込みます",null,null,null,null,null,null,null,null,null,null,"複数ファイルのパス、名前、サイズ、日付等の情報を取得します"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"取得した情報はRDATAシートに表示します。"]
[]
[null,"読み込みパス",null,"C:\\"]
[]
[null,"（ファイル情報）",null,"※行数、列数はデータによっては誤差が出る場合もあります"]
[null,"ファイルパス・名前",null,"C:\\ESD\\テスト保存23.csv"]
[null,"データ行数",null,20]
[null,"データ列数",null,18]
[]
[null,"※この処理は取り込んだデータを、変換やチェック等をする場合の前準備となります",null,null,null,null,null,null,null,null,null,null,"※この処理は、取得されたファイルの情報をもとに選択的になにか処理をする場合や"]
[null,null,null,null,null,null,null,null,null,null,null,null,"読み込んだ複数ファイルすべてを何らかの処理をする場合の前準備になります。"]
[null,"（データの取り込み）"]
[null,"基本的処理の流れ"]
[]
[null,"ファイル選択ダイアログを表示"]
[null,"rdfile = Application.GetOpenFilename(\"全てのファイル,*.*\")",null,null,null,null,null,null,"rdfile","ダイアログからの情報を収容する変数"]
[null,null,null,null,null,null,null,null,"赤い字の部分で、ダイアログで表示するファイルフォーマットを設定出来ます"]
[null,"▼",null,null,null,null,null,null,"全てのファイル,*.*"]
[null,null,null,null,null,null,null,null,"Excelファイル,*.xlsx"]
[null,null,null,null,null,null,null,null,"csvファイル,*.csv"]
[null,null,null,null,null,null,null,null,"pdfファイル,*.pdf"]
[null,null,null,null,null,null,null,null,"："]
[null,"pos = InStrRev(rdfile, \"\\\")",null,null,null,null,"”￥”の位置を調べる"]
[null,"PathName = Left(rdfile, pos)",null,null,null,null,"rdfileはパスこみの情報なので、パス情報を分離する"]
[null,"FileName = Mid(rdfile, pos + 1)  ",null,null,null,null,"対象ファイル名のみを取得"]
[null,"▼"]
[null,"データのコピー元の準備"]
[null,"Windows(FileName).Activate ",null,null,null,null,"対象のファイルをActiveに"]
[null,"Cells.Select ",null,null,null,null,"全ての範囲を取り込み"]
[null,"Selection.Copy",null,null,null,null,"コピーする"]
[null,"▼"]
[null,"データのコピー先の準備"]
[null,"Windows(fnamechr).Activate",null,null,null,null,"このファイル自身のファイルをActiveに",null,null,null,"（前もってfnamechr = ActiveWorkbook.Nameで取得）"]
[null,"Sheets(\"RDATA\").Activate ",null,null,null,null,"RDDATAシートをActiveに"]
[null,"Sheets(\"RDATA\").Select ",null,null,null,null,"RDDATAシートを選択"]
[null,"▼"]
[null,"データをペースト"]
[null,"Sheets(\"RDATA\").Range(\"A1\").Select ",null,null,null,null,"シートのA1：(1,1)の部分にペースト"]
[null,"ActiveSheet.Paste"]
[null,"Sheets(\"RDATA\").Cells(1, 1).Select ",null,null,null,null,"カレントカーソルをA1：(1,1)に"]
[null,"▼"]
[null,"ファイルを閉じる処理"]
[null,"Excel.Application.CutCopyMode = False  ",null,null,null,null,"クリップボードのクリア"]
[null,"Windows(FileName).Close  ",null,null,null,null,"元ファイルを閉じる"]
[null,"    "]
[]
[null,"（複数ファイル情報（パス、ファイル名、サイズ、日付等）の書き出し）"]
[null,"基本的処理の流れ"]
[]
[null,"ファイル選択ダイアログを表示"]
[null,"mFile = Application.GetOpenFilename(\"全てのファイル,*.*\")",null,null,null,null,null,null,"rdfile","ダイアログからの情報を収容する変数"]
[null,null,null,null,null,null,null,null,"赤い字の部分で、ダイアログで表示するファイルフォーマットを設定出来ます"]
[null,"▼",null,null,null,null,null,null,"全てのファイル,*.*"]
[null,null,null,null,null,null,null,null,"Excelファイル,*.xlsx"]
[null,null,null,null,null,null,null,null,"csvファイル,*.csv"]
[null,null,null,null,null,null,null,null,"pdfファイル,*.pdf"]
[null,null,null,null,null,null,null,null,"："]
[null,"取り込みファイル情報の数をチェック"]
[null,"If UBound(mFile) > 100 Then"]
[null,"           MsgBox \"一度の取り込みファイル数は10件までです\""]
[null,"           Exit Sub"]
[null,"           Else"]
[null,"End If"]
[]
[null,"▼"]
[null,"データを書き出す"]
[null,"For i = 1 To UBound(mFile)"]
[]
[null,"        Worksheets(\"RDATA\").Cells(i, 1) = mFile(i)"]
[null,null,"各種データ表示"]
[null,"        "]
[null,"Next i"]
[]
[null,"ファイル名（フルパス付）"]
[null,"ファイルサイズ(ﾊﾞｲﾄ)",null,null,"FileLen関数",null,null,"vba関数"]
[null,"ファイルの日付",null,null,"FileDateTime関数",null,null,"vba関数"]
[]
[null,"ファイルサイズ(ﾊﾞｲﾄ)",null,null,"sizeﾌﾟﾛﾊﾟﾃｲ",null,null," FileSystemObjectの利用"]
[null,"ファイルの作成日",null,null,"DateCreatedﾌﾟﾛﾊﾟﾃｲ",null,null," FileSystemObjectの利用"]
[null,"ファイルの最終更新日",null,null,"DateLastModifiedﾌﾟﾛﾊﾟﾃｲ",null,null," FileSystemObjectの利用"]

{"sheet":"RDATA","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}