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

• DopeBob addikt

  #8029

  #8027 DopeBob

  2010-08-31 12:38:43

  Új Válasz

  Ú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

  

  DopeBob

  addikt

  #8027 DopeBob

  Ameddig nem lesz jobb, itt egy ilyen tákolós megoldás

  Egy VB Script ami elindítja az excelt megnyitja a fájlt aztán bezárja:

  Option Explicit

  On Error Resume Next

  ExcelMacroExample

  Sub ExcelMacroExample()

  Dim xlApp
  Dim xlBook

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Temp\Munkafüzet2.xlsm", 0, True)

  xlApp.Quit

  Set xlBook = Nothing
  Set xlApp = Nothing

  End Sub

  Meg egy makró ami szétbobja a munkafüzetet munkalapokra

  'Creates an individual workbook for each worksheet in the active workbook.
  Dim wbDest As Workbook
  Dim wbSource As Workbook
  Dim sht As Object 'Could be chart, worksheet, Excel 4.0 macro,etc.
  Dim strSavePath As String

  Application.ScreenUpdating = False 'Don't show any screen movement

  strSavePath = "C:\Temp\" 'Change this to suit your needs

  Set wbSource = ActiveWorkbook

  For Each sht In wbSource.Sheets
  sht.Copy
  Set wbDest = ActiveWorkbook
  wbDest.SaveAs strSavePath & sht.Name
  wbDest.Close 'Remove this if you don't want each book closed after saving.
  Next

  Application.ScreenUpdating = True

  Ha a Workbook.Open-hez teszed, lefut minden indulások.

  Elvileg a VBSriptbe is be lehetne írni, hogy futtasson makrót ( xlApp.Run "MyMacro" ) de nálam nem akar menni valamiért

  Az e-mail küldés meg megy akkor.

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