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

• #40634 Pakliman tag p5quser #40632

  Új Válasz 2019-04-03 12:15:06 #40634

  Ú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

  

  Pakliman

  tag

  válasz p5quser #40632 üzenetére

  Szia!

  A
  Dim stdb As Workbook
Dim stnm As String

  sorokat töröld a Workbook_Open metódusból (ha még nem tetted meg), mert különben kizárólag ezek a HELYBEN ÉRVÉNYES változók veszik fel az értékeket (ez miatt hasal el a program is, mert ott nincs értéke az stnm-nek!).

  Private Sub Workbook_Open()
stnm = Application.GetOpenFilename
If stnm <> "" Then
Set stdb = Workbooks.Open(stnm)
End If
End Sub

  A Workbooks(stnm).Sheets(1).Range("A1:B" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*" helyett így már használhatod a
  stdb.Sheets(1).Range("A1:B" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*" formát!

• #40633 Fferi50 Topikgazda p5quser #40632

  Új Válasz 2019-04-03 12:11:08 #40633

  Ú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

  

  Fferi50

  Topikgazda

  válasz p5quser #40632 üzenetére

  Szia!

  "Ha az stnm helyére beírom idézőjelekkel az adat file teljes nevét kiterjesztéssel, teszi a dolgát"

  Mit értesz teljes név alatt? Ha csak a kiterjesztéssel bővített fájlnevet, akkor rendben van. Ha viszont az elérési utat (Path) is beleérted, akkor nem működhet rendesen.
  Megnyitott munkafüzetre a fájlnévvel (Name) lehet/kell hivatkozni, igen, kiterjesztéssel együtt.
  Viszont itt:
  If stnm <> "" Then
Workbooks.Open stnm
End If

  Az stnm a Path-t is fogja tartalmazni, ezért jelentkezik hiba az adott sorban.
  Ebből az alábbi sorral kaphatod meg a fájl nevét:
  fnev=Mid(stnm,InStrRev(stnm,"\")+1)

  Még egy megjegyzés: Amikor megnyitod az stnm nevű munkafüzetet, az lesz az aktív munkafüzet, tehát a nevét az ActiveWorkbook.Name tulajdonsággal is lekérdezheted.

  Üdv.

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