Új hozzászólás Aktív témák

• #40632 p5quser tag

  Új Válasz 2019-04-03 11:29:26 #40632

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  p5quser

  tag

  Sziasztok!
  Újfent a segítségetekre szorulnék. Van egy sablon munkafüzet, amit ha megnyitok az bekér egy "adat" excel táblát megnyitásra.
  Hogyan tudom beállítani, hogy a megnyitott adat munkafüzet nevére globálisan hivatkozhassak a sablon füzetben?
  Túrtam a neten egy ilyet;

  Private Sub Workbook_Open()
Dim stdb As Workbook
Dim stnm As String

stnm = Application.GetOpenFilename
If stnm <> "" Then
Workbooks.Open stnm
End If
End Sub

  ami a Thisworkbookban lapít. Egy régebbi itteni megoldást követve, modulba raktam ezeket is;

  Public stdb As Workbook
Public stnm As String

  Az adat file az stdb. Az sablon első munkalapján lévő makró viszont run-time 13-mal elhasal (type mismatch) és ez a sor sárgul be;

  Workbooks(stnm).Sheets(1).Range("A1:B" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*"

  Ha az stnm helyére beírom idézőjelekkel az adat file teljes nevét kiterjesztéssel, teszi a dolgát, csak hát a kényelem, ugye...
  Előre is köszönöm!

Új hozzászólás Aktív témák