Controle of een csv bestand geopend is

[RonaldRoenhorst]

Hoe kan ik controleren of een csv bestand geopend is en en deze sluiten alvorens verder gaat.

 

[manamana]

Je kunt een csv bestand indien gemaakt gewoon opvragen. Breng je er veranderingen in dan zal je deze moeten opslaan. Dan kun je hem weer opvragen.

Wat bedoel je verder? Graag wat meer uitleg dit is wel erg summier.

 

[RonaldRoenhorst]

'Controleer of er een datum is geselecteerd
If IsNull(kzlDeliveryDatesMax) Then
    MsgBox "Selecteer een datum uit de lijst of geef een datum in.", vbInformation, 
    Me.kzlDeliveryDatesMax.SetFocus
     Exit Sub
Me.kzlDeliveryDatesMax.SetFocus
   
 End If


    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM TestCsv"
    DoCmd.SetWarnings True
    DoCmd.OpenQuery "Query1"
    DoCmd.RunSavedImportExport "Export-MaxCsv"
    


MsgBox ("Gegevens zijn geexporteerd naar een csv bestand"), vbOKOnly, 

 Dim ProjPath
ProjPath = "F:\data\Data Max\testCsv.csv"
Shell "C:\WINDOWS\explorer.exe """ & ProjPath & "", vbNormalFocus

Wanneer de file nog geopend is krijg ik een foutmelding, nu kan ik wel met het volgende script alles sluiten maar had of liever een melding gehad en de mogelijkheid om zelf te sluiten of alleen de betreffende file

'Sluit excel
Dim sKillExcel As String
sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide

 

[VenA]

Een beetje onleesbaar geheel met de HTML-tags

Om een bestand te sluiten/manipuleren kan je zoiets gebruiken

Sub VenA()
c00 = "D:\Temp\test.csv"
With GetObject(c00)
  .Close
End With
End Sub

 

[HSV]

Andere methode:
En dan mag jezelf kiezen, msgbox en sluiten of een van de twee.
Zonder msgbox is sneller bij een gesloten Wb dan mijn voorganger.

Sub hsv()
Dim Wb As Workbook
  On Error Resume Next
    Set Wb = Workbooks("[COLOR=#3E3E3E]testCsv.csv[/COLOR]")
 If Err.Number = 0 Then
    'MsgBox "Bestand " & Wb.name & " open"
    Wb.Close
   End If
 End Sub