Hej
Hur gör jag för att koppla en commondialog till en viss fil ?
Jag har ett program som jobbar med en excelfil och när ändringar är gjorda i denna fil så skall ett nytt dokument skapas.

Private Sub Frame1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim File As Variant
If Data.GetFormat(vbCFFiles) Then
For Each File In Data.Files
'kolla om det är en exelfil
If Right(File, 3) = "xls" Then
List1.AddItem File
Set AppExcel = CreateObject("Excel.Application")
strFil = File
Set WoorkBook = AppExcel.Workbooks.Open(strFil)
Set WoorkSheet = WoorkBook.Sheets("Sammanställning")
skapaSammanställning
Set WoorkSheet = Nothing
WoorkBook.Close
Set WoorkBook = Nothing
AppExcel.Quit
Set AppExcel = Nothing
End If
Next
Effect = vbDropEffectCopy
End If
End Sub

Private Sub skapaSammanställning()
'Set ofso = CreateObject("Scripting.FileSystemObject")
Dim rader As Integer
For rader = 4 To 50
' ta värdet i cellen i och addera ihop med mallen
WoorkSheet.Cells(rader, 7) = WoorkSheet.Cells(rader, 7) + WoorkSheet1.Cells(rader, 7)
WoorkSheet.Cells(rader, 8) = WoorkSheet.Cells(rader, 8) + WoorkSheet1.Cells(rader, 8)
Next rader
'Hur kopplas jag denna sparfunktion till mitt aktiva excelblad?
CD1.Filter = "*.xls"
CD1.ShowSave

End Sub