Ovo ce ti valjda pomoci. Meni otvara Excel tabelu.
Private Sub CommandButton12_Click()
On Error Resume Next
Dim Prozor As FileDialog
Set Prozor = Application.FileDialog(msoFileDialogFilePicker)
With Prozor
.InitialFileName = Biblioteka
.AllowMultiSelect = False
If .Filters.Count > 0 Then
.Filters.Delete
End If
.Filters.Add "", "*.xls"
.Title = Naslov
If .Show = -1 Then
Workbooks.Open Prozor.SelectedItems.Item(1)
Call Osvezi
End If
End With
End Sub
Dopuna: 04 Mar 2008 7:27
PS.Ovo sam zaboravio:
Da bi radilo uradi sledece
Project->References->Microsoft Office Object Library
|