Hoi allen,
Ik heb een macro die ervoor zorgt dat alle tabbladen apart worden opgeslagen als CSV. Dit gaat goed echter neemt die ook de zaken waarin lege cellen staan.
Wat doe ik nu?
- Zie tabblad INPUT, hier staan de harde data (die steeds wisselt)
- In tabblad Blad1 zie je een celverwijzing naar tabblad INPUT. Als cel leeg is dan toont die niks (en moet straks ook niet in csv komen) en als die gevuld is dan toont die het wel.
- Macro gemaakt die ieder tabblad apart opslaat als CSV.
Probleem is nu echter dat ieder csv bestand nu alle regels overneemt met een celverwijzing. Ik wil graag dat alleen de daadwerkelijk gevulde regels worden getoond in de tabbladen. Verder wil ik graag dat csv bij het openen direct gescheiden worden getoond (ipv achter elkaar met komme). Dit heeft te maken met vervolgstap in systeem.
Wie kan mij helpen?
Option Explicit
Sub WriteSheetsToCSV()
Dim zSourcePath As String
Dim zDestPath As String
Dim zTabName As String
Dim oSheet As Worksheet
zSourcePath = "H:\Temp"
zDestPath = zSourcePath
For Each oSheet In ActiveWorkbook.Sheets
oSheet.Activate
zTabName = oSheet.Name
ActiveWorkbook.SaveAs Filename:= _
zDestPath & zTabName & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
Next
End Sub
Ik heb een macro die ervoor zorgt dat alle tabbladen apart worden opgeslagen als CSV. Dit gaat goed echter neemt die ook de zaken waarin lege cellen staan.
Wat doe ik nu?
- Zie tabblad INPUT, hier staan de harde data (die steeds wisselt)
- In tabblad Blad1 zie je een celverwijzing naar tabblad INPUT. Als cel leeg is dan toont die niks (en moet straks ook niet in csv komen) en als die gevuld is dan toont die het wel.
- Macro gemaakt die ieder tabblad apart opslaat als CSV.
Probleem is nu echter dat ieder csv bestand nu alle regels overneemt met een celverwijzing. Ik wil graag dat alleen de daadwerkelijk gevulde regels worden getoond in de tabbladen. Verder wil ik graag dat csv bij het openen direct gescheiden worden getoond (ipv achter elkaar met komme). Dit heeft te maken met vervolgstap in systeem.
Wie kan mij helpen?
Option Explicit
Sub WriteSheetsToCSV()
Dim zSourcePath As String
Dim zDestPath As String
Dim zTabName As String
Dim oSheet As Worksheet
zSourcePath = "H:\Temp"
zDestPath = zSourcePath
For Each oSheet In ActiveWorkbook.Sheets
oSheet.Activate
zTabName = oSheet.Name
ActiveWorkbook.SaveAs Filename:= _
zDestPath & zTabName & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
Next
End Sub