tomo hata@就職活動中 Excelファイル一括オープン
No License VBA
2021年03月31日
Copy Clone
Option Explicit
Sub フォルダ内エクセルファイル一括オープン()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim wb As Workbook, cnt As Long, wind As Window
    Dim myFolder As Folder, myFile As File
    Set myFolder = FSO.GetFolder(ThisWorkbook.Path)
    On Error GoTo myError
    '各ファイルの拡張子を確認してエクセルファイルを判別
    For Each myFile In myFolder.Files
        If myFile.Path Like "*.xls*" Then
            cnt = 0
            For Each wb In Workbooks
                cnt = cnt + 1
                '指定のファイルが既に開いていた場合
                If myFile.Name = wb.Name Then
                    'このブックの場合は何もしない
                    If wb.Name = ThisWorkbook.Name Then
                        Exit For
                    'このブック以外の場合
                    Else
                        MsgBox myFile.Path & "は既に開いています", vbInformation
                        Exit For
                    End If
                '最後のファイルまで確認してファイル名が"~$*"でなければブックを開く
                ElseIf (cnt = Workbooks.Count) And (Not myFile.Name Like "~$*") Then
                    Workbooks.Open myFile
                    Exit For
                End If
            Next
        End If
    Next
    '各ウインドウが最大化されていなければ最大化する
    For Each wind In Windows
        With Application
            If Not .WindowState = xlMaximized Then .WindowState = xlMaximized
        End With
    Next
    Set myFolder = Nothing
    Set myFile = Nothing
    ThisWorkbook.Close
    Exit Sub
myError:
    Debug.Print Err.Number & vbCrLf & Err.Description
    Resume Next
End Sub

Option Explicit
Sub フォルダ内エクセルファイル一括オープン()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim wb As Workbook, cnt As Long, wind As Window
    Dim myFolder As Folder, myFile As File
    Set myFolder = FSO.GetFolder(ThisWorkbook.Path)
    On Error GoTo myError
    '各ファイルの拡張子を確認してエクセルファイルを判別
    For Each myFile In myFolder.Files
        If myFile.Path Like "*.xls*" Then
            cnt = 0
            For Each wb In Workbooks
                cnt = cnt + 1
                '指定のファイルが既に開いていた場合
                If myFile.Name = wb.Name Then
                    'このブックの場合は何もしない
                    If wb.Name = ThisWorkbook.Name Then
                        Exit For
                    'このブック以外の場合
                    Else
                        MsgBox myFile.Path & "は既に開いています", vbInformation
                        Exit For
                    End If
                '最後のファイルまで確認してファイル名が"~$*"でなければブックを開く
                ElseIf (cnt = Workbooks.Count) And (Not myFile.Name Like "~$*") Then
                    Workbooks.Open myFile
                    Exit For
                End If
            Next
        End If
    Next
    '各ウインドウが最大化されていなければ最大化する
    For Each wind In Windows
        With Application
            If Not .WindowState = xlMaximized Then .WindowState = xlMaximized
        End With
    Next
    Set myFolder = Nothing
    Set myFile = Nothing
    ThisWorkbook.Close
    Exit Sub
myError:
    Debug.Print Err.Number & vbCrLf & Err.Description
    Resume Next
End Sub

①同一フォルダ内のExcelファイルを全て開く②このブックを閉じる
使用例) WorkbookのOpenイベントに記述して一括オープン専用ファイルとして使う。
需要有るか分からんけど。

anonymous
Anonymous
2021年04月25日
Medicament information for patients. Generic Name. <a href="https://topregabalin.top">pregabalin cost</a> in Canada All trends of meds. Read information here.
anonymous
Anonymous
2021年04月27日
Pills information. Generic Name. <a href="https://lyrica24x7.top">buying generic lyrica pills</a> in Canada Some information about pills. Get here.
anonymous
Anonymous
2021年04月30日
cialis patent expiration 2016 <a href="https://mycialistabs.com/">cialis coupons</a> cialis drug class
anonymous
Anonymous
2021年04月30日
cheap generic cialis <a href="https://mycialistabs.com/">cialis from canada</a> when will cialis become generic
anonymous
Anonymous
2021年05月02日
viagra versus cialis <a href="https://toptadalafiltabs.com/">cialis dose</a> cialis samples
anonymous
Anonymous
2021年05月04日
generic name for cialis <a href="https://toptadalafiltabs.com/">tadalafil 20mg india</a> how much does cialis cost per pill
anonymous
Anonymous
2021年05月04日
how to write a 5 paragraph essay middle school <a href="https://topessaywriterfas.com/">essay buy</a> write essay online free
anonymous
Anonymous
2021年05月05日
how to write a historiographical essay <a href="https://topessaywriterfas.com/">essay edit service</a> how to write a rogerian argument essay
anonymous
Anonymous
2021年05月06日
essay wrietr service <a href="http://writemyessayslfd.com/">www.writemyessayslfd.com</a> essay writing service order research
anonymous
Anonymous
2021年05月07日
buy generic 100mg viagra online <a href="https://mrviagrashop.com">viagra for men</a> cvs viagra
anonymous
Anonymous
2021年05月07日
gold essay writing service <a href="http://writemyessayslfd.com/">writing essay help</a> descriptive writing essay
anonymous
Anonymous
2021年05月07日
women viagra pills <a href="https://mrviagrashop.com">buy real viagra online</a> viagra natural
anonymous
Anonymous
2021年05月07日
generic sildenafil <a href="https://mysildenafilkr.com/">viagra price</a> viagra amazon
anonymous
Anonymous
2021年05月08日
herbal viagra <a href="https://mysildenafilkr.com/">viagra</a> roman viagra
anonymous
Anonymous
2021年05月12日
what is the difference between viagra and cialis <a href="http://tadalafilled.com/">tadalafil dosage</a> is cialis over the counter
anonymous
Anonymous
2021年05月12日
college application resume <a href="http://coverletterforresumetop.com/">create your own resume</a> volunteer experience on resume
anonymous
Anonymous
2021年05月12日
resume with accent <a href="http://coverletterforresumetop.com/">federal resume</a> sales cover letter
anonymous
Anonymous
2021年05月12日
cialis and viagra <a href="http://tadalafilled.com/">sildenafil vs tadalafil</a> eli lilly cialis
anonymous
Anonymous
2021年05月13日
web developer cover letter <a href="https://writingacoverletteronline.com/">online resume writing services</a> medical receptionist resume
anonymous
Anonymous
2021年05月13日
engineer resume <a href="https://writingacoverletteronline.com/">cover letter creator</a> cover letter guide
anonymous
Anonymous
2021年05月13日
sildenafil citrate online pharmacy <a href="https://edviagramaster.net/">buy sildenafil online</a> viagra logo
anonymous
Anonymous
2021年05月14日
sildenafil citrate 25mg <a href="https://edviagramaster.net/">viagra jokes</a> viagra cost per pill
anonymous
Anonymous
2021年05月15日
female viagra walmart <a href="https://sildenafilviagratop.com">best over the counter viagra</a> buy sildenafil online
anonymous
Anonymous
2021年05月15日
cheap cialis <a href="https://cialisortadalafil.com/">cialis lilly</a> cialis sample
anonymous
Anonymous
2021年05月16日
when does cialis go generic <a href="https://cialisortadalafil.com/">tadalafil vs sildenafil</a> cialis expiration
anonymous
Anonymous
2021年05月16日
100mg viagra <a href="https://sildenafilviagratop.com">generic sildenafil 20 mg</a> walgreen viagra
anonymous
Anonymous
2021年05月16日
cialis coupon <a href="https://topcialistabs.com/">https://www.topcialistabs.com/</a> how to get cialis
anonymous
Anonymous
2021年05月17日
generic name for cialis <a href="https://topcialistabs.com/">cialis coupon</a> cialis 20 mg price