Filedialog saveas

Status
Niet open voor verdere reacties.

jarsky

Gebruiker
Lid geworden
19 feb 2009
Berichten
36
Hallo,

ik heb het volgende probleem in Access 2010.
Ik heb vanuit een access dbase een Excel bestand gevuld met waardes.
Dit gaat allemaal uitstekend

Vervolgens wil ik het gevulde Excel bestand opslaan met de actie Filedialog (saveas) en daar gaat het mis. Ik krijg keurig het dialoog venster om op te slaan, ik klik op ok en dan krijg ik de melding dat "access is stop working" ik gebruik onderstaande code.
Ik zal vast wat fout doen maar ik kan er alleen geen vinger op leggen wat ik verkeerd doe.

Fout zelf gevonden en opgelost. (kleurtje gegeven)

Private Sub Knop7_Click()

Dim mysheet As Object, myfield As Variant, xlApp As Object, fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim A As Variant
With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

A = vrtSelectedItem

Next vrtSelectedItem
Else
End If
End With

Set fd = Nothing

Set xlApp = CreateObject("Excel.Application")
Set mysheet = xlApp.workbooks.Open(A).sheets("Invulsheet")

mysheet.cells(1, 2).Value = Me.WBS
mysheet.cells(2, 2).Value = Me. Contractwaarde
mysheet.cells(3, 2).Value = me.Materiaal
mysheet.cells(4, 2).Value = Me.Subcontracting
mysheet.cells(7, 2).Value = me.Uren
mysheet.cells(8, 3).Value = Me.Uurloan

Set fd =mysheetApplication.FileDialog(msoFileDialogSaveAs)

With fd
.InitialFileName = Me.WBS
.Show
.Execute
End With

mysheet.Application.activeworkbook.Close
xlApp.Quit

' Clear the object variable.
Set mysheet = Nothing
Set fd = Nothing
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan