Wie speichert man Excel ohne Benutzer-Aufforderung zum speichern der Datei?

Hallo, ich schrieb einige code mit VBScript in Excel-Blatt wie unten. Jetzt jedes mal, wenn das Skript fertig ist es seine Verarbeitung ist der Benutzer aufgefordert wird, zu Save.Aber ich will das nicht,eher will ich es speichern, wird es automatisch ohne Eingabeaufforderung.

CODE

    Option Explicit

    Dim objExcel1,strPathExcel1,objSheet1,objSheet5

    Set objExcel1 = CreateObject("Excel.Application")'Object for Condition Dump
    strPathExcel1 = "D:\VA\GE_Wing_To_Wing_Report.xlsx"
    objExcel1.Workbooks.Open strPathExcel1
    Set objSheet1 = objExcel1.ActiveWorkbook.Worksheets(1)
    Set objSheet5 = objExcel1.ActiveWorkbook.Worksheets(5)

    '=====================================================================================
    'Here Bad sheet will be copied by the data from First sheet master data sheet
    '=====================================================================================
       ParentPIDFromMasterSheet objSheet1,objSheet5

    '=====================================================================================
    'Here Bad sheet will be copied by the data from First sheet master data sheet
    '=====================================================================================
       BadDataSelectionDel objSheet5

    '=======================
    objExcel1.ActiveWorkbook.SaveAs strPathExcel1
    objExcel1.Workbooks.close
    objExcel1.Application.Quit
    '======================
Verwandte: Öffnen Sie eine Excel-Datei und speichern als .XLS

InformationsquelleAutor Arup Rakshit | 2012-12-26

  1. 4

    UNGETESTET (Versuchen)

    Müssen Sie Ihre Arbeitsmappe und schließen Sie es dann nach dem speichern. Auch ist es eine gute Praxis, um aufzuräumen Ihre Objekte an das Ende des Codes nach der Verwendung. 🙂

    Option Explicit

Dim objExcel1, objWB, strPathExcel1, objSheet1, objSheet5

Set objExcel1 = CreateObject("Excel.Application") 'Object for Condition Dump
strPathExcel1 = "D:\VA\GE_Wing_To_Wing_Report.xlsx"
Set objWB = objExcel1.Workbooks.Open(strPathExcel1)
Set objSheet1 = objWB.Worksheets(1)
Set objSheet5 = objWB.Worksheets(5)

'=====================================================================================
'Here Bad sheet will be copied by the data from First sheet master data sheet
'=====================================================================================
   ParentPIDFromMasterSheet objSheet1, objSheet5

'=====================================================================================
'Here Bad sheet will be copied by the data from First sheet master data sheet
'=====================================================================================
   BadDataSelectionDel objSheet5

'=======================
objWB.Save
objWB.Close
objExcel1.Quit

'~~> Cleanup
Set objSheet1 = Nothing
Set objSheet5 = Nothing
Set objWB = Nothing
Set objExcel1 = Nothing
'======================
    hi Siddharth, warum ist es gute Praxis zu schließen yoru Objekte? was sind die Auswirkungen? 🙂 #generalcuriosity
    Sehr Gute Frage 🙂 Wenn Sie eine google-Suche erhalten Sie Ihre Antwort. Dies wurde weithin bedeckt
    Speichern mit bestimmten Dateinamen, die Sie verwenden können objWB.SaveAs "C:\path\to\file\filename.xlsx" (Siehe Öffnen Sie eine Excel-Datei und speichern als .XLS)

    InformationsquelleAutor Siddharth Rout

Schreibe einen Kommentar