Aktif dosyayı kod yazarken nasıl kullanmalıyım

[nazif74]

Levent beyin hazırlamış olduğu, klasörüyle dosya seçme formunu kullanmaya çalışıyorum. Yalnız bu formu kullanırken seçip, açtığım dosyayla ilgili başka işlemlerde yapmak istiyorum. Acaba formdan seçtiğim dosyayı kod yazarken nasıl kullanmalıyım

Sub OpenFile()
Dim MyVal As Integer
Dim Buff As String
Dim hwnd As Long
Dim MyFile
Dim RetVal As Long
Dim deg

If Right(UserForm7.TextBox1, 1) <> "\" Then deg = "\"
MyFile = UserForm7.TextBox1 & deg & UserForm7.ListBox1 & "\" & UserForm7.ListBox2
Don = UserForm7.ListBox2
Buff = String(260, 32)
MyVal = FindExecutable(MyFile, vbNullString, Buff)
If MyVal > 32 Then
ExeFile = Left$(Buff, InStr(Buff, Chr$(0)) - 1)
If Right(MyFile, 4) = ".xls" Then
Workbooks.Open MyFile, Password:="1111222", editable:=True

vergiVeri.Activate
ActiveSheet.Unprotect "kapalı"
Columns("C:m").Select
Selection.EntireColumn.Hidden = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Workbooks( ??? & ".xls").Activate >>>>>formdan seçtiğim dosya
ActiveWindow.Visible = True
Sheets("veri1").Select
Range("c4:m5004").Select
Selection.Copy
vergiVeri.Activate
Range("c4:m5004").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Workbooks(??? & ".xls").Activate >>>>>formdan seçtiği dosya
ActiveWindow.Visible = False
vergiVeri.Activate
ActiveSheet.Unprotect "kapalı"
Columns("h:m").Select
ActiveSheet.Unprotect "kapalı"
Selection.EntireColumn.Hidden = True
Range("a1").Select
ActiveSheet.Unprotect "kapalı"
Selection.AutoFilter Field:=1, Criteria1:="<>"
Call RaporVer
ActiveSheet.Protect "kapalı", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Workbooks(UserForm7.ListBox1).Activate

 

[nazif74]

Type Mismatch Hatası ?

Levent Bey gene hata veriyor. Hata kodu aşağıda yardımcı olabilirmisiniz. Kafamda saç kalmadı