Új hozzászólás Aktív témák

• #16950 picsu csendes tag

  Új Válasz 2013-02-28 09:40:56 #16950

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  picsu

  csendes tag

  Sziasztok!

  Egy kis segítségre lenne szükségem. Régen office 2003-am volt amin szuperül működött ez a parancs:
  Set fajllista = Application.FileSearch

  Az új 2007-esben azonban hibát kapok rá... :-(
  "Runtime error '445'
  Object doesn't support this action

  Tudnátok segíteni, hogy mivel tudom helyettesíteni?

  Előre is nagyon köszönöm.
  Isti

  A makróm ez:
  Sub export()

  Dim elso, masodik, harmadik, negyedik, otodik, hatodik, hetedik As String
  Dim fold As FileDialog
  Dim foldrv As Variant
  Dim fso As Object
  Dim fajllista As FileSearch
  Dim fajllistaindex As Long
  Dim forras, cel As String

  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False

  cel = ActiveWindow.Caption

  Set fold = Application.FileDialog(msoFileDialogFolderPicker)

  With fold
  If .Show = -1 Then
  foldrv = .SelectedItems(1)
  Else
  Exit Sub
  End If
  End With

  Set fajllista = Application.FileSearch

  With fajllista
  .NewSearch
  .LookIn = foldrv
  .Filename = "*.xls"
  .SearchSubFolders = False
  If .Execute > 0 Then
  For fajllistaindex = 1 To .FoundFiles.Count
  'MsgBox .FoundFiles(fajllistaindex)
  Workbooks.Open Filename:=.FoundFiles(fajllistaindex)

  forras = ActiveWindow.Caption

  '
  With Workbooks(forras).Sheets(1)

  Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 1) = Workbooks(forras).Sheets(1).Cells(3, 1)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 2) = Workbooks(forras).Sheets(1).Cells(3, 2)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 3) = Workbooks(forras).Sheets(1).Cells(3, 3)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 4) = Workbooks(forras).Sheets(1).Cells(3, 4)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 5) = Workbooks(forras).Sheets(1).Cells(3, 5)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 6) = Workbooks(forras).Sheets(1).Cells(3, 6)

  End With
  '(fajllistaindex, 1) = workbooks(

  Application.DisplayAlerts = False
  Workbooks(forras).Close
  Application.DisplayAlerts = True

  '"=[Book1.xls]Sheet1!R1C1"
  '"=[" & .FoundFiles(fajllistaindex) & "]Sheet1!R1C1"

  Next fajllistaindex
  End If
  End With

  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  Application.Calculate

  MsgBox "Na ez is megvan mégsincs este... Összesen " & fajllistaindex & " fájlból importáltunk adatokat.", vbInformation + vbOKOnly, "Komisszióadatok importálása befejeződött"

  End Sub

Új hozzászólás Aktív témák