Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub inhaaisheets_wegschrijven_naar_E_data()
Dim xWs As Worksheet
Dim xcsvFile As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each xWs In Application.ThisWorkbook.Worksheets
If InStr(xWs.Name, "haai") Then
xWs.Copy
xcsvFile = "E:\data\Rica\" & Sheet1.Range("N2") & "-" & Sheet1.Range("N3") & "-" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
FileFormat:=xlCSV, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = True
End Sub
Sub M_snb()
for each it in sheets
if instr(it.name,"haai") then
it.copy
ActiveWorkbook.SaveAs "G:\OF\voorbeeld" & it.name & ".csv", 6, , , , , , , , , , True
end if
next
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.