时间戳

首页 > 解决方案 > 工作簿（名称） Excel VBA

excel - 工作簿（名称） Excel VBA

问题描述

我在保存所有数据的主要 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

标签： excelvba

解决方案

推荐阅读