Nachgehakt: Zeilen als einzelne Text-Dateien spei

Hallo zusammen, (Hallo Sepp :-))
ich beziehe mich nochmals auf den Beitrag von letzter Woche:
https://www.herber.de/forum/archiv/1596to1600/t1597522.htm#1597522
Hier der Link zur Excel-Tabelle:
https://www.herber.de/bbs/user/118506.xlsm
Die beiden hinterlegten Makros übertragen immer alle Zeilen der Tabelle.
Ich würde gerne nur die Zeilen auf den Server und auf die Lokale-Festplatte laden, die von mir vorher gefiltert wurden.
Mein Problem ist nämlich die lange Übertragungszeit:
Meine aktuelle Excel Tabelle hat nämlich über 500 Zeilen, wobei nur ca. 10 am Tag geändert und auf den Server und die Festplatte hochgeladen werden müssen.
Gibt es da eine Möglichkeit die Makros dementsprechend zu ändern?
Wäre super, wenn mir jemand helfen könnte.
(Bitte beachtet, dass ich kaum VBA-Kenntnisse habe und auf eine genaue Anleitung angewiesen bin)
Danke schon im Voraus.
Viele Grüße
Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Robert,

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ErstelleDateien()
Dim strPath As String, strText As String, strDivider As String, strFileName As String
Dim lngRow As Long, lngStartRow As Long, lngLastRow As Long
Dim lngCol As Long, lngStartCol As Long, lngLastCol As Long
Dim FF As Integer
Dim strFiles() As String, strFTPFolder As String, lngIndex As Long

strFTPFolder = "httpdocs/team-drop/raspi1/" 'Zielverzeichnis FTP

strPath = Environ("TEMP")  'Zielpfad

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

strDivider = vbCrLf 'Trennzeichen der Textdatei - Anpassen

lngStartRow = 4 'Erste Zeile mit Daten

lngStartCol = 3 'Erste Spalte (Dateiname)

With Sheets("Speichern der Datei1") 'Tabellenname - Anpassen
  lngLastRow = Application.Max(lngStartRow, .Cells(.Rows.Count, 4).End(xlUp).Row) 'letzte Zeile
  lngLastCol = Application.Max(lngStartCol, .Cells(lngStartRow, .Columns.Count).End(xlToLeft).Column) 'letzte Spalte
  For lngRow = lngStartRow To lngLastRow
    If Not .Rows(lngRow).Hidden Then
      strFileName = strPath & .Cells(lngRow, lngStartCol) & ".txt"
      strText = ""
      For lngCol = lngStartCol + 1 To lngLastCol
        strText = strText & .Cells(lngRow, lngCol) & strDivider
      Next
      strText = Left(strText, Len(strText) - Len(strDivider))
      FF = FreeFile
      Open strFileName For Output As #FF
      Print #FF, strText
      Close #FF
      Redim Preserve strFiles(lngIndex)
      strFiles(lngIndex) = strFileName & ";" & strFTPFolder
      lngIndex = lngIndex + 1
    End If
  Next
End With
If lngIndex > 0 Then
  Call PutFTPFile(strFiles)
End If

End Sub

Gruß Sepp

Sub ErstelleDateien() Dim strPath As String, strText As String, strDivider As String, strFileName As String Dim lngRow As Long, lngStartRow As Long, lngLastRow As Long Dim lngCol As Long, lngStartCol As Long, lngLastCol As Long Dim FF As Integer strPath = "C:\Users\Rober\Desktop\Skriptcode" 'Zielpfad If Right(strPath, 1) <> "\" Then strPath = strPath & "\" strDivider = ";" 'Trennzeichen der Textdatei - Anpassen lngStartRow = 4 'Erste Zeile mit Daten lngStartCol = 3 'Erste Spalte (Dateiname) With Sheets("Speichern der Datei1") 'Tabellenname - Anpassen lngLastRow = Application.Max(lngStartRow, .Cells(.Rows.Count, 4).End(xlUp).Row) 'letzte Zeile lngLastCol = Application.Max(lngStartCol, .Cells(lngStartRow, .Columns.Count).End(xlToLeft).Column) 'letzte Spalte For lngRow = lngStartRow To lngLastRow If Not .Rows(lngRow).Hidden Then 'Nur eingeblendete Zeilen! strFileName = strPath & .Cells(lngRow, lngStartCol) & ".txt" strText = "" For lngCol = lngStartCol + 1 To lngLastCol strText = strText & .Cells(lngRow, lngCol) & strDivider Next strText = Left(strText, Len(strText) - Len(strDivider)) FF = FreeFile Open strFileName For Output As #FF Print #FF, strText Close #FF End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Nachgehakt: Zeilen als einzelne Text-Dateien spei

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nachgehakt: Zeilen als einzelne Text-Dateien spei

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread