Evelthoven
Gebruiker
- Lid geworden
- 26 sep 2006
- Berichten
- 690
Goedemiddag,
Hieronder een deel van een macro die ik gebruik om gegevens op te halen:
Omdat ik dagelijks de gegevens moet ophalen is mijn vraag of het mogelijk is om de data van de op te halen CSV-file in deze macro aan te passen, zodanig dat er na het opstarten van de macro gevraagd wordt naar de datum.
Bijv.: Van welke datum wilt u het CSV-bestand ophalen ?
Dat ik dan de juitste datum kan invullen.
En dat deze datum dan geplaatst wordt achter .....\2007\... en 2 regels verder achter
.Name = " "
Heeft iemand hier een oplossing voor ?
Bedankt,
Eric
Hieronder een deel van een macro die ik gebruik om gegevens op te halen:
Code:
Sub LijstSamenstellenIM()
' 01 Importeren
Application.ScreenUpdating = False
Application.EnableEvents = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;L:\DOS\Productie\2007\20070828.csv", Destination:= _
Range("B1"))
.Name = "20070828"
.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, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
' 02 Datum invullen + tabblad een naam geven
Dim c As Variant
Dim lngRow As Long
Sheets(2).Activate
For Each c In Sheets(2).Range("B5", Range("B5").End(xlDown))
If Left(c, 3) = "MGR" Then
c.Offset(0, -1).Value = Format(Mid(Range("B2"), 13, 2) & "-" & Mid(Range("B2"), 15, 2) & "-" & Year(Now()), "dd-mm-yyyy")
End If
Next
ActiveSheet.Name = "IM" & Year(Now()) & Mid(Range("B2"), 13, 4)
Omdat ik dagelijks de gegevens moet ophalen is mijn vraag of het mogelijk is om de data van de op te halen CSV-file in deze macro aan te passen, zodanig dat er na het opstarten van de macro gevraagd wordt naar de datum.
Bijv.: Van welke datum wilt u het CSV-bestand ophalen ?
Dat ik dan de juitste datum kan invullen.
En dat deze datum dan geplaatst wordt achter .....\2007\... en 2 regels verder achter
.Name = " "
Heeft iemand hier een oplossing voor ?
Bedankt,
Eric