Decision
11-26-2014, 06:39 AM
Hallo,
Kan iemand mij helpen met het volgende: ik heb een code geschreven om excel files te laden in een bepaald model. Ik krijg echter een error melding (438: object doesnt support this property..' en kom er zelf niet uit. Het gaat om de volgende code hieronder weergegeven. Het stuk in bold is waar de error zit volgens excel.. Kan iemand mij uit de brand helpen? Thanks!
Sub Import_Quoations()
Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "D:\VU\Decision Making\Final Model\"
fileName = Dir(directory & "Carrier*?")
Do While fileName <> ""
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("Canon_Final_Model0.1").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("Canon_Final_Model0.1")(total)
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Kan iemand mij helpen met het volgende: ik heb een code geschreven om excel files te laden in een bepaald model. Ik krijg echter een error melding (438: object doesnt support this property..' en kom er zelf niet uit. Het gaat om de volgende code hieronder weergegeven. Het stuk in bold is waar de error zit volgens excel.. Kan iemand mij uit de brand helpen? Thanks!
Sub Import_Quoations()
Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "D:\VU\Decision Making\Final Model\"
fileName = Dir(directory & "Carrier*?")
Do While fileName <> ""
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("Canon_Final_Model0.1").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("Canon_Final_Model0.1")(total)
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub