Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfadangabe ?

Pfadangabe ?
21.10.2007 14:26:00
andre
Hallo,
ich habe ein Makro erstellt das nur die Dateien bearbeitet (umwandeln u. speichern) die auch im selben Verzeichnis liegen
und bisher eine Pfadangabe im Makro, da nun auch andere das Makro nutzen müssen sie immer den Pfad anpassen. Gibt es die Möglichkeit eine Auswahlbox einzufügen ? Oder es so zu ändern das immer nur die Dateien im selben Verzeichnis von selbst gefunden werden ?
Gruß
Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfadangabe ?
21.10.2007 14:43:00
Josef
Hallo Andre.
es wäre hilfreich, wenn du deinen Code zeigen würdest.
Gruß Sepp

AW: Pfadangabe ?
21.10.2007 15:01:22
andre 

Sub Konvert()
Const myPath = "C:\Dokumente und Einstellungen\Test\Eigene Dateien\"
Dim myFile As String
Dim lngZeile As Long, lngSatzzaehler As Long
Dim myArray
Dim strEinlesebuffer As String
myFile = Dir(myPath & "*.asc")
Range("A:A,B:B").Select
Range("B1").Activate
Selection.NumberFormat = "@"
Close #1
lngZeile = 1
If myFile  "" Then
Do
lngSatzzaehler = 0
Open myPath & myFile For Input As #1
Do While Not EOF(1)
Line Input #1, strEinlesebuffer
lngSatzzaehler = lngSatzzaehler + 1
If lngSatzzaehler > 6 Then
myArray = Split(strEinlesebuffer, ",")
Cells(lngZeile, 1).Value = myArray(0)
Cells(lngZeile, 2).Value = myArray(1)
Cells(lngZeile, 3).Value = myFile
lngZeile = lngZeile + 1
End If
Loop
Close #1
myFile = Dir
Loop While myFile  ""
End If
' es werden die ersten zwei Spalten übernommen und in die 3. wird der Dateiname eingefügt
' ab hier folgt dann die ganze Umwandlungsprozedur
End Sub


Hallo Sepp,
das ganze ist sehr groß, ich hoffe der Ausschnitt genügt ?
Gruß
Andre

Anzeige
AW: Pfadangabe ?
21.10.2007 15:29:00
Josef
Hallo Patric,
probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Konvert()
Dim myFile As String, strEinlesebuffer As String, myPath As String
Dim lngZeile As Long, lngSatzzaehler As Long
Dim myArray

'Verzeichnis der Datei
'myPath = ThisWorkbook.Path & "\"

'oder Auswahldialog
myPath = fncBrowseForFolder & "\"


myFile = Dir(myPath & "*.asc")

Range("A:B").NumberFormat = "@"

Close #1
lngZeile = 1
If myFile <> "" Then
    Do
        lngSatzzaehler = 0
        Open myPath & myFile For Input As #1
        Do While Not EOF(1)
            Line Input #1, strEinlesebuffer
            lngSatzzaehler = lngSatzzaehler + 1
            If lngSatzzaehler > 6 Then
                myArray = Split(strEinlesebuffer, ",")
                Cells(lngZeile, 1).Value = myArray(0)
                Cells(lngZeile, 2).Value = myArray(1)
                Cells(lngZeile, 3).Value = myFile
                lngZeile = lngZeile + 1
            End If
        Loop
        Close #1
        myFile = Dir
    Loop While myFile <> ""
End If

' es werden die ersten zwei Spalten übernommen und in die 3. wird der Dateiname eingefügt
' ab hier folgt dann die ganze Umwandlungsprozedur

End Sub

Private Function fncBrowseForFolder(Optional ByVal defaultPath = "") As String
Dim objFlderItem As Object, objShell As Object, objFlder As Object

Set objShell = CreateObject("Shell.Application")
Set objFlder = objShell.BrowseForFolder(0&, "Ordner auswählen...", 0&, defaultPath)

If objFlder Is Nothing Then GoTo ErrExit

Set objFlderItem = objFlder.Self
fncBrowseForFolder = objFlderItem.Path

ErrExit:

Set objShell = Nothing
Set objFlder = Nothing
Set objFlderItem = Nothing
End Function

Gruß Sepp

Anzeige
AW: Pfadangabe ?
21.10.2007 16:06:14
andre
Hallo Sepp,
super !!! war genau das was ich gesucht habe es funktioniert :)
ein Frage hätte ich noch, ist aber eher kosmetischer Natur
ist es viel Aufwand wenn man die xls-Datei aufruft und auf Makros aktivieren klickt
das man dann ein Startbutton hat zum Anklicken wo man evtl. drunter schreibt "wähle das Verz. mit den *.asc Dateien" ?
Dann müsste ja jeder damit klarkommen.
Danke nochmal für deine Hilfe!
Gruß
Andre

AW: Pfadangabe ?
21.10.2007 18:52:00
Josef
Hallo Andre,
füge auf der tabelle einfach eine Schaltfläche aus der Symbolleiste "Formular" ein, im daraufhin erscheinenden Dialog, brauchst du nur das Makro auswählen.
Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige