Hallo zusammen,
mittels einer Powershell-Prozedur wird jeden Tag eine .csv-Datei auf unserem Druckserver erstellt. Diese Datei enthält alle Drucker und die auf diesen Druckern gedruckten Seiten und weitere Informationen.
ich lade mir täglich diese CSV-Datei auf ein Referats-Laufwerk herunter. Dann lade ich diese Datei in Excel ein und verarbeite sie weiter.
Ich möchte jetzt diese CSV-Datei direkt vom Druckserver herunterladen.
wir haben dafür eine Freigabe angelegt \\MTxxxx04\Statistik$
Ich weiß jedoch nicht wie ich Excel dazu bringen kann die Daten über diesen Link zu öffnen.
Bisher sieht mein Code folgendermaßen aus:
'**** Import der CSV-Datei
Sub StartImportCSV()
Dim ws As Worksheet
Dim ZielTabelle As String
Dim strPfad As String
Dim strDateiname As String
Dim Datum As Date
Dim intLetzte_Spalte As Integer
strPfad = "J:\Druckerverwaltung\Standorte\xxx\Export Zählerstände Druckserver"
ChDrive "J:\"
ChDir strPfad
strDateiname = Application.GetOpenFilename
ZielTabelle = "CSV Import"
Set ws = ActiveWorkbook.Sheets(ZielTabelle)
'**** Tabellenblatt "CSV Import" wird geleert
ws.Range("A1", "A512").Value = ""
If strDateiname > "" Then
Application.ScreenUpdating = False
Workbooks.Open Filename:=strDateiname, Local:=True
ActiveSheet.UsedRange.Copy ws.Cells(1)
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End If
'**** Erstellungsdatum der Datei ermitteln
Datum = FileDateTime(strDateiname)
'**** erste freie Spalte ermitteln und Datum in Zeile 3 dort eintragen
intLetzte_Spalte = Cells(3, Columns.Count).End(xlToLeft).Column + 1
Cells(3, intLetzte_Spalte).Value = Datum
'**** unter Datum wird jeweils TotalPagesPrinted und TotalJobsPrinted eingetragen
Cells(4, intLetzte_Spalte).Value = "TPP"
Cells(4, intLetzte_Spalte + 1).Value = "TJP"
Call Daten_Eintragen
End Sub
Was muss ich ändern um direkt auf den Ordner im Druckserver zugreifen zu können?