VBA < Datenbanken < Praktische Inform. < Hochschule < Informatik < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 11:00 Fr 13.01.2012 | | Autor: | max_e |
hallo,
ich möchte das ich auf dateien zurückgreife die von der bezeichnung den gleich pfad haben - jodoch durch monats bzw jahrangabe unterschiedlich
sind.
nun habe ich es probiert:
Sub DATEENTRANSFER2()
'
' DATEENTRANSFER2 Makro
'
' Tastenkombination: Strg+Umschalt+D
Dim Jahr As Integer
Dim Monat As Integer
Monat = InputBox("Bitte Geben Sie den Monat ein !!", "Eingabeaufforderung")
Jahr = InputBox("Bitte Geben Sie das Jahr XXXX ein !!", "Eingabeaufforderung")
Workbooks.Open [mm] Filename:="X:\Hans\"Jahr"_"Monat"_Tagesbck.csv"
[/mm]
Cells.Select
Selection.Copy
Windows("Versuchsmappe.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("G35").Select
End Sub
-> doch so einfach geht es nicht. Wie kann ich die eingegebene zahl in den pfadausdruck reinbekommen- vielen dank
max.e
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 11:06 Fr 13.01.2012 | | Autor: | chrisno |
Ich habe hier kein VBA. Aber: musst Du nicht die Integer in Strings verwandeln?
|
|
|
| |
|
| Status: |
(Frage) beantwortet | | Datum: | 11:36 Fr 13.01.2012 | | Autor: | max_e |
ok. ich habe die Integer Variable in eine String Variable umgewandelt,
doch wie kann ich nun das in den Pfad miteinbringen?
Sub DATEENTRANSFER2()
'
' DATEENTRANSFER2 Makro
'
' Tastenkombination: Strg+Umschalt+D
Dim Jahr As Integer
Dim Monat As Integer
Monat = InputBox("Bitte Geben Sie den Monat ein !!", "Eingabeaufforderung")
Jahr = InputBox("Bitte Geben Sie das Jahr XXXX ein !!", "Eingabeaufforderung")
Dim Jahrr As String
Jahrr = CStr(Jahr)
Dim Monatt As String
Monatt = CStr(Monat)
Workbooks.Open Filename:= [mm] "X:\Boehler\Jahrr_Monatt_Tagesbck.csv"
[/mm]
Cells.Select
Selection.Copy
Windows("Versuchsmappe.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("G35").Select
End Sub
|
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 12:07 Fr 13.01.2012 | | Autor: | chrisno |
Nun musst Du noch die Strings aneinander hängen. Dafür brauchst Du das &.
Dann mach Dir mal eine Variable für den Filenamen und sieh Dir das Ergebnis mit einer Msgbox an
Dateiname = [mm] "X:\\Boehler\\"\&Jahrr\&"\_"\&Monatt\&"\_Tagesbck.csv
[/mm]
Die letzten Anführungsstriche bekomme ich da so auf die schnelle nicht hin.
|
|
|
| |
|
| Status: |
(Frage) beantwortet | | Datum: | 12:29 Fr 13.01.2012 | | Autor: | max_e |
Hi, vielen Dank-
okay.geht da musste ein leerzeichen zwischen & ,,,,, &
|
|
|
|
