Ik ben duidelijk nog een junior member. Ik snap niet waarom een opgenomen en werkende macro niet meer werkt wanneer ik deze in een event plak.
Doel van de file is het (dagelijks) verplaatsen van de inhoud van 3 csv bestanden naar één file die door andere gebruikers wel te benaderen is.
In de opgenomen macro laad ik met "externe gegevens ophalen" "van tekst" de csv bestanden in de file die door anderen ook te benaderen is. De vorige excercitie maakte de tabbladen leeg voordat ik de nieuwe data zou inlezen.
Dankzij jullie tips werkt het leegmaken.
Maar nu loopt het script weer vast bij het inlezen van de csv bestanden. Ik kan me voorstellen dat het makkelijker kan maar heb geen idee hoe.
With ActiveWorkbook
.Sheets("A").UsedRange.ClearContents
.Sheets("B").UsedRange.ClearContents
.Sheets("C").UsedRange.Delete Shift:=xlUp ' bij clear kan ik geen externe gegevens meer importeren
End With
Application.Goto ActiveWorkbook.Sheets("C").Cells(1, 1)
' nieuw stuk 13/09/2020
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;X:\Operations\e-mail\belgie_openstaande_orders.csv", Destination:=Range _
("$A$1"))
.CommandType = 0
.Name = "belgie_openstaande_orders"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Application.Goto ActiveWorkbook.Sheets("B").Cells(1, 1)
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;X:\Operations\e-mail\belgie_leveringen.csv", Destination:=Range("$A$1") _
)
' .CommandType = 0
.Name = "belgie_leveringen"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub