Tabellenblätter in Arbeitsmappe einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

das könnte schon ein prob werden. arbeite ja bei ner bank, wie man sieht...bankgeheimnis...aber ich hab das problem jetzt gelöst und ich glaube, daß das mit den buttons so kein problem ist.

jetzt versuche ich meine externen daten nicht als festen pfad anzugeben. bisher sieht6 das ganze so aus:

'Datei "externe_Daten4" öffnen
Workbooks.Open FileName:= _
"\\sv032194\CB2WECD$\statistik_Host\externe_Daten4.xls"

Set wkSH = Workbooks("StatistikHost(stand2710)").Worksheets("Vorlage (2)")
Set wkED = Workbooks("externe_Daten4").Worksheets("DA45.Test.XINFODAT")

und ich möchte, daß dazwischen noch ein fenstzer geöffnet wird, in dem der benutzer seinen pfad selber angeben kann und, daß sich diese tabelle dann automatisch als wkED deklariert. außerdem wäre ne fehlermeldung nicht ganz schlecht, wenn es sich nicht um ne exceltabelle handelt.

Hallo Christin,

estelle Dir eine UserForm (UserForm1) mit einem Listenfeld (ListBox1) und einem Commandbutton (Commandbutton1).
Dann in das Modul der UserForm folgenden Code:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
xDat = ListBox1.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   Dim sOrdner As String
   sOrdner = GetDirectory("Ein Verzeichnis auswählen!")
   If sOrdner = "" Then
      Unload Me
   Else
      Me.Caption = sOrdner
      With Application.FileSearch
         .LookIn = sOrdner
         .FileType = msoFileTypeExcelWorkbooks
         .Execute
         For iCounter = 1 To .FoundFiles.Count
            ListBox1.AddItem .FoundFiles(iCounter)
         Next iCounter
      End With
  End If
End Sub

Code eingefügt mit Syntaxhighlighter 2.1

In ein Standardmodul diese Code:

Public Type BROWSEINFO
   hOwner As Long
   pidlRoot As Long
   pszDisplayName As String
   lpszTitle As String
   ulFlags As Long
   lpfn As Long
   lParam As Long
   iImage As Long
End Type

Public xDat As String

Declare Function SHGetPathFromIDList Lib "shell32.dll" _
   Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
   Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Function GetDirectory(Optional Msg As String) As String
   Dim bInfo As BROWSEINFO
   Dim Path As String
   Dim r As Long, x As Long, pos As Integer
   bInfo.pidlRoot = 0&
   If IsMissing(Msg) Then
      bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
   Else
      bInfo.lpszTitle = Msg
   End If
   bInfo.ulFlags = &H1
   x = SHBrowseForFolder(bInfo)
   Path = Space$(512)
   r = SHGetPathFromIDList(ByVal x, ByVal Path)
   If r Then
      pos = InStr(Path, Chr$(0))
      GetDirectory = Left(Path, pos - 1)
   Else
      GetDirectory = ""
   End If
End Function

Sub DialogAufruf()
   UserForm1.Show
   [A1] = xDat
End Sub

Code eingefügt mit Syntaxhighlighter 2.1

Pfad und Name der Datei werden hier in Zelle A1 geschrieben. Kannst Du ja abändern und direkt an Deine Variable übergeben.
Start der Verzeichnisauswahl über Dialogaufruf.

Gruß Lutz

Beliebteste Forumthreads (12 Monate)

Tabellenblätter in Arbeitsmappe einfügen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter in Arbeitsmappe einfügen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread