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

• #11848 Delila_1 veterán spok2 #11847

  Új Válasz 2011-11-02 07:32:05 #11848

  Ú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

  

  Delila_1

  veterán

  válasz spok2 #11847 üzenetére

  Akkor köszönd, ha a próba során jól működik.

• #11846 Delila_1 veterán spok2 #11845

  Új Válasz 2011-11-01 09:04:41 #11846

  Ú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

  

  Delila_1

  veterán

  válasz spok2 #11845 üzenetére

  A B1 cellában a megadott útvonal ilyen C:\Főkönyvtár\Alkönyvtár\AlAlkönyvtár\ legyen. Ne maradjon le a végéről a "\".

  Sub SokPld()
  Dim lap%, ment As String
  Application.ScreenUpdating = False
  
  For lap% = 1 To 100
  Sheets(lap%).Select
  ment = Cells(2) & Cells(1) & ".xls"
  Sheets(lap%).Copy
  
  ActiveWorkbook.SaveAs Filename:=ment, FileFormat:=xlNormal _
  , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False
  ActiveWindow.Close
  Next
  
  Application.ScreenUpdating = True
  End Sub

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