1
Excel / Re: ScrollRow
« Laatste bericht door Della Jordan Gepost op Vandaag om 16:53:41 »Ik denk dat Sunnybat zoiets zoekt:
At Softaid, ik kon een grapje weer niet laten.
At Softaid, ik kon een grapje weer niet laten.
Sub CSV_Import()
Set ws = ThisWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
ws.Range("A1:H150").ClearContents
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh
End With
End Sub
ws.Range("A1:H150").ClearContents
strFile = "c:\test\test.csv"
En hoe doorbreek je zo een While-Wend -Lus? Ik kan Excel enkel geforceerd beëindigen met Taakbeheer.Met de heel weinige gegevens dat we hebben, het enige dat ik kan verzinnen is de escape toets een paar seconden indrukken.
Code: [Selecteer]Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150")).Clear
'.......................
'.......................
End Sub
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))
Je kan daar niet .Clear achter zetten.ws.Range("A1:H150").Clear
moet voor de copy-past code staan, op een aparte regel.Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150")).Clear
.TextFileParseType = xlDelimited
'geef de scheidingstekens op:
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileCommaDelimiter = False
.Refresh
End With
End Sub
Geen flauw idee waarom je zoiets zou willen?
Om eens in te spelen op SoftAid zijn antwoordCode: [Selecteer]Application.Wait Now + TimeValue("00:00:001")
In plaats van 1 seconde is dit één tiende van een seconde.
Application.Wait Now + TimeValue("00:00:01")
Application.Wait Now + TimeValue("00:00:001")
In plaats van 1 seconde is dit één tiende van een seconde.