VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Schleife bricht nach erstem Mal ab	06.05.2022 10:36:57	TW
Vorschlag	06.05.2022 11:44:10	Gast46204
Vorschlag	06.05.2022 12:21:07	TW
Vorschlag	06.05.2022 12:59:46	Gast46204
Vorschlag	06.05.2022 13:25:47	Gast35183
Poste mal das Ergebnis folgender Prozedur	06.05.2022 14:11:54	Gast46204
Poste mal das Ergebnis folgender Prozedur	06.05.2022 14:32:02	TW
Abschliessender Backslash?	06.05.2022 14:43:04	Gast46204
Poste mal das Ergebnis folgender Prozedur	06.05.2022 14:44:29	ralf_b

Ansicht des Beitrags:

Von:
Gast46204

Datum:
06.05.2022 11:44:10

Views:
429

Rating:

Antwort:

Thema:
Vorschlag

Option Explicit

Sub Test01()

    Const sEXT      As String = "XLSX"
    Const sPFAD     As String = "c:\Test2\"
    Dim fil         As Variant
    
    With CreateObject("Scripting.FileSystemObject")
        For Each fil In .GetFolder(sPFAD).Files
            If UCase$(.GetExtensionName(fil.Path)) = sEXT Then
                Call CopyAndPasteValuesFrom(fil.Path)
            End If
        Next
    End With
    
End Sub


Function CopyAndPasteValuesFrom(ByRef sWKB As String) As Boolean
    
    Dim wkbQuelle As Excel.Workbook
    Set wkbQuelle = Workbooks.Open(sWKB)
    
    wkbQuelle.Worksheets("Z-ESR Dia").Range("P37").Copy
    '*** ab hier das Kopierte einfügen
    
    
    wkbQuelle.Close SaveChanges:=False
    Set wkbQuelle = Nothing
End Function

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Schleife bricht nach erstem Mal ab	06.05.2022 10:36:57	TW
Vorschlag	06.05.2022 11:44:10	Gast46204
Vorschlag	06.05.2022 12:21:07	TW
Vorschlag	06.05.2022 12:59:46	Gast46204
Vorschlag	06.05.2022 13:25:47	Gast35183
Poste mal das Ergebnis folgender Prozedur	06.05.2022 14:11:54	Gast46204
Poste mal das Ergebnis folgender Prozedur	06.05.2022 14:32:02	TW
Abschliessender Backslash?	06.05.2022 14:43:04	Gast46204
Poste mal das Ergebnis folgender Prozedur	06.05.2022 14:44:29	ralf_b