2006-06-15から1日間の記事一覧
Excelの書式→シート→表示しない 再表示するには 書式→シート→再表示
fiieNameはフルパスで。 Function loadTextFile(fileName As String) As String Dim fileNo As Integer Dim lineText As String Dim result As String fileNo = FreeFile Open fileName For Input As #fileNo Do While Not EOF(fileNo) Line Input #fileNo, …
Dim book As Workbook Set book = Workbooks.Open(fileNameWithPath, ReadOnly:=True)
' エラーになっても処理を継続する On Error Resume Next ' 元に戻す On Error GoTo 0
Dim bookName As String bookName = Dir("指定するディレクトリ" & "\*.xls") While bookName <> "" ' ブックを開いて処理を実行する Wend