A
ajliaks
Hi!
This may be a fool question, but I need the right answer
I have these procedures in a userform called "Importing" wich gives m
the location of some file, with the route,name of file and sheet
need, like this:
Private Sub cmdSearchSource_Click()
Dim V As Variant
V = Application.GetOpenFilename("Excel files,*.xls", _
1, "Select source file", , False)
If (Left(V, 3) <> "Fal") Then
FileLocate.Text = V
FileName.Text = Right(V, Len(V) - 71)
End If
End Sub
Private Sub SheetName_Change()
Dim Sheet As String
Sheet = SheetName
End Sub
and have an other in a module called "OpenSaveClose" like this:
Sub OpenFile()
Workbooks.Open (V)
'here sentence to copy "Sheet from opened workbook to the workbook I a
working in called "oldworkbook"
End Sub
So I need to call Sub OpenFile from userform "Importing"
Thanks
This may be a fool question, but I need the right answer
I have these procedures in a userform called "Importing" wich gives m
the location of some file, with the route,name of file and sheet
need, like this:
Private Sub cmdSearchSource_Click()
Dim V As Variant
V = Application.GetOpenFilename("Excel files,*.xls", _
1, "Select source file", , False)
If (Left(V, 3) <> "Fal") Then
FileLocate.Text = V
FileName.Text = Right(V, Len(V) - 71)
End If
End Sub
Private Sub SheetName_Change()
Dim Sheet As String
Sheet = SheetName
End Sub
and have an other in a module called "OpenSaveClose" like this:
Sub OpenFile()
Workbooks.Open (V)
'here sentence to copy "Sheet from opened workbook to the workbook I a
working in called "oldworkbook"
End Sub
So I need to call Sub OpenFile from userform "Importing"
Thanks