*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Ophalen  (gelezen 12079 keer)

0 leden en 13 gasten bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 228
  • Geslacht: Man
  • Oplossing.be
Ophalen
« Gepost op: 30 april 2024, 11:57:36 »
Hoi,

Klein vraagje, met deze macro haal ik een csv op in een bepaalde dircetory

hij zet deze neer in A1

maar als ik weer de zelfde csv ophalen zet hij die niet neer in A1 maar de cel ernaast
is het mogelijk voordat ik de csv ophalen dat A1:H150 leeg wordt gemaakt en dan de macro runt en de csv ophaald

en mss nog een vraagje is het mogelijk dat excel op een bepaalde tijd de csv automatisch ophaalt

ik gebruikt de volgende macro

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"))
    .TextFileParseType = xlDelimited
    'geef de scheidingstekens op:
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileCommaDelimiter = False
    .Refresh
End With
End Sub
 
Private Sub Workbook_Open()
CSV_Import
End Sub
Alvast weer bedankt
Gelogd
Excel 365 NL

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.193
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Ophalen
« Reactie #1 Gepost op: 30 april 2024, 12:06:27 »
Citaat van: Sunnybat op 30 april 2024, 11:57:36
maar als ik weer de zelfde csv ophalen zet hij die niet neer in A1 maar de cel ernaast
is het mogelijk voordat ik de csv ophalen dat A1:H150 leeg wordt gemaakt en dan de macro runt en de csv ophaald
Sunnybat,

eerst die range leegmaken (en eventueel de focus zetten op A1
Code: [Selecteer]
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
ws.Range(A1:H150").Clear
Range("A1").Select   
'........
end Sub

Je tweede zal ik eens bekijken, maar mogelijk is dat weer een stapje te hoog voor mij. Heb nu ook veel katten te geselen  :)

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 228
  • Geslacht: Man
  • Oplossing.be
Re: Ophalen
« Reactie #2 Gepost op: 30 april 2024, 15:14:34 »
@SoftAid

ik krijg de melding
Deze eigenschap of methode wordt niet ondersteund door dit object

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")).ClearContents
    .TextFileParseType = xlDelimited
    'geef de scheidingstekens op:
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileCommaDelimiter = False
    .Refresh
End With
End Sub

Gelogd
Excel 365 NL

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.193
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Ophalen
« Reactie #3 Gepost op: 30 april 2024, 15:24:30 »
Citaat van: Sunnybat op 30 april 2024, 15:14:34
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

Dat heb ik ook niet voorgesteld. Je maakt er één lijn van:
Deze lijn is copiëren en plakken:
Code: [Selecteer]
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))Je kan daar niet .Clear achter zetten.
Code: [Selecteer]
ws.Range("A1:H150").Clear moet voor de copy-past code staan, op een aparte regel.

Volgens mijn bescheiden mening.

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 228
  • Geslacht: Man
  • Oplossing.be
Re: Ophalen
« Reactie #4 Gepost op: 30 april 2024, 16:16:07 »
@SoftAid

ben de regels aan het bekijken maar waar ik

Code: [Selecteer]
ws.Range("A1:H150").ClearContents
moet plakken is me nog niet duidelijk  :love: :-[

heb het voor deze regel gedaan maar dat werkt niet

Code: [Selecteer]
strFile = "c:\test\test.csv"

Gelogd
Excel 365 NL

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 180
  • Geslacht: Vrouw
Re: Ophalen
« Reactie #5 Gepost op: 30 april 2024, 16:30:13 »
Volgens jou vraag (voorbeeld) moet dit voldoende zijn.
Alles die op false staat is sowieso overbodig.
Code: [Selecteer]
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
Gelogd
Groetjes,Della
Pagina's: [1]   Omhoog
 


www.combell.com