Sice by bylo rozumnější aby uživatel v souboru s makrem stiskl tlačítko a zobrazil se mu dialog pro výběr souboru, ale abych odpověděl na zadání, tak viz. kód níže. Blbý bude až budeme mít otevřeno více souborů :-), nebo když se mu podaří každý soubor spustit v jiné instanci excelu - proto bych doporučil to přehodnotit a mrknout i na druhý příklad.
Dim jmeno As String
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then
jmeno = wb.Name
Exit For
End If
Next
If jmeno <> "" Then MsgBox jmeno Else MsgBox "Nenalezeno"
Výběr souboru ...
Dim soubor As String
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
Application.FileDialog(msoFileDialogOpen).Show
If Application.FileDialog(msoFileDialogOpen).SelectedItems.Count = 1 Then
soubor = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
MsgBox soubor
End Ifcitovat
Dim jmeno As String
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then
jmeno = wb.Name
Exit For
End If
Next
If jmeno <> "" Then MsgBox jmeno Else MsgBox "Nenalezeno"
Výběr souboru ...
Dim soubor As String
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
Application.FileDialog(msoFileDialogOpen).Show
If Application.FileDialog(msoFileDialogOpen).SelectedItems.Count = 1 Then
soubor = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
MsgBox soubor
End Ifcitovat
), takze orginal dolezity subor ostava na sieti a nic sa mu nestane.
RSS nejnovější články