工作簿（名称）Excel VBA Download


我正在处理一个主要的excel工作簿，其中保存了所有数据。我有一个按钮，允许用户通过查看另一个工作簿来更新正在进行的数据的“状态”。单击它时，它将打开包含工作簿的Excel文件，并读取与数据状态相对应的列。如果包含工作簿的Excel已在同一“选项卡”中打开，它将读取所需的信息，并返回到主文件。如果未打开Excel文件，它将打开它，然后在结束时将其关闭。我当前面临的问题是，如果文件是在其他“选项卡”中打开的，则不允许我使用Excel文件的名称将其分配为工作簿。

check = IsWorkBookOpen("\\\Éclairage\Demandes\" + nomSuivi)

If check = True Then  

Set suivi = Workbooks(nomSuivi)  'nomSuivi is the name of the Excel file ex: file.xls 




    TotalRows = suivi.Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row    
    ReDim mandat(1 To TotalRows)
    ReDim etat(1 To TotalRows)

    For i = 2 To TotalRows
     mandat(i - 1) = suivi.Worksheets("Feuil1").Cells(i, 1).Value   
     etat(i - 1) = suivi.Worksheets("Feuil1").Cells(i, 5).Value   
    Next i

0 个答案:

没有答案



Similar searches