VBA-Script in Excel automatisert importieren?

Hallo,

mein momentanes Vorhaben:

Ich habe eine Masterliste und daraus möchte ich gern mittels VBA durch Zeilen markieren neue Teillisten exportieren bzw später auch wieder importieren können.

Problem hierbei ist, die Masterliste wird von einem anderem Service generiert. Der Service erzeugt .xlsx Dateien als ohne Makro. Bis das System, Dateien mit Makros erzeugen kann würde ich gerne eine Übergangslösung basteln. Vor allem weil ich das Projekt leite und bis zu meinem Praktikumsende nur noch ein paar Wochen sind.

Meine Frage: Ist es möglich mit Python o.ä. die Makro-Skripte in eine .xlsx Datei zu packen und diese Tabellen dann als .xlsm zu speichern? Vorallem geht es um eine Modul Skript und ein DiesesArbeitsblatt-Skript, welches beim Start ausgeführt wird. Kenne mich selber nicht so super gut in VBA aus.

Ideal wäre es, wenn es komplett automatisiert läuft, also der Kollege öffnet eine dieser Listen dann wird, diese Liste automatisiert mit dem Makro versehen. Ich schätze das ist performancelastig,da permament geprüft werden muss ob eben eine Liste geöffnet wurde, deswegen würde auch eine manuelle Lösung reichen. Quasi ich wähle die Liste starte ein kleines Programm und bekomme die Liste mit dem Makros zurück.

Ist dies möglich? Mein großes Problem ist, das ich nicht weiß wie ich diese VBS-Skripte in die Liste importiere, so das dies erkannt wird.

Wäre super wenn da jemand was weiß.

mfg werdas34

Computer, Microsoft, Microsoft Excel, Technik, programmieren, VBA, MS-Excel, Technologie, VBS
Ist diese Batch Datei sicher?

Geht nur darum was er theoretisch macht, da Kaspersky es als Infizierte Datei anzeigt, ich aber gerne wissen würde warum.

@echo off

title Activate Microsoft Office 2019 ALL versions for FREE!&cls&echo ============================================================================&echo #Project: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products:&echo - Microsoft Office Standard 2019&echo - Microsoft Office Professional Plus 2019&echo.&echo.&(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&echo.&echo ============================================================================&echo Activating your Office...&cscript //nologo ospp.vbs /unpkey:6MWKP >nul&cscript //nologo ospp.vbs /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul&set i=1

:server

if %i%==1 set KMS_Sev=kms7.MSGuides.com

if %i%==2 set KMS_Sev=kms8.MSGuides.com

if %i%==3 set KMS_Sev=kms9.MSGuides.com

if %i%==4 goto notsupported

cscript //nologo ospp.vbs /sethst:%KMS_Sev% >nul&echo ============================================================================&echo.&echo.

cscript //nologo ospp.vbs /act | find /i "successful" && (echo.&echo ============================================================================&echo.&echo #My official blog: MSGuides.com&echo.&echo #How it works: bit.ly/kms-server&echo.&echo #Please feel free to contact me at msguides.com@gmail.com if you have any questions or concerns.&echo.&echo #Please consider supporting this project: donate.msguides.com&echo #Your support is helping me keep my servers running everyday!&echo.&echo ============================================================================&choice /n /c YN /m "Would you like to visit my blog [Y,N]?" & if errorlevel 2 exit) || (echo The connection to my KMS server failed! Trying to connect to another one... & echo Please wait... & echo. & echo. & set /a i+=1 & goto server)

explorer "http://MSGuides.com"&goto halt

:notsupported

echo.&echo ============================================================================&echo Sorry! Your version is not supported.&echo Please try installing the latest version here: bit.ly/aiomsp

:halt

pause >nul

Computer, Microsoft, Office, Schule, Technik, programmieren, VBS, VBScript
VBScript Fehler Dateien bereits vorhanden?

Ich schreibe gerade an einer art "DesktopCleaner"... das ganze soll erstmal nur auf meinem System funktionieren.

Option Explicit 
Dim objFSO, objFolder, objSubFld, f1, f2, colFiles, pathname, i 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("D:\") 
ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 
For Each f1 in colFiles 
pathname = objFSO.GetAbsolutePathName(f1)
MsgBox pathname
 If Not (pathname = "D:\4.m3u") Or (pathname = "D:\CyberGhost 6.lnk") Or (pathname = "D:\desktop.ini") Or (pathname = "D:\Electrum-LTC.lnk") Or (pathname = "D:\Electrum.lnk") Or (pathname = "D:\Lazarus.lnk") Or (pathname = "D:\Start Tor Browser.lnk") Or (pathname = "D:\TeamSpeak 3 Client.lnk") Then
objFSO.MoveFile pathname, "D:\Alles Desktop\DesktopCleaner"
End If
Next 
End Sub 

objFSO.MoveFile "E:\VBS\DesktopCleaner\data\TranscodedWallpaper", "C:\Users\Ericmc\AppData\Roaming\Microsoft\Windows\Themesr"
MsgBox "Fertig!" 

Also der Ablauf soll sein: Lösche alle Dateien auf dem Desktop (D:), ändere das Desktop Hintergrundbild. Der Fehler ist wohl beim ersten objFSO.MoveFile .... ich schaffe es aber nicht ihn zu beheben. Es kommt immer die aussage die Dateien würden bereits existieren?? Obwohl der Ordner DesktopCleaner leer ist. Danke für eure Hilfe.

Visual Basic, programmieren, VBS

Meistgelesene Fragen zum Thema VBS