Running a VBA macro from VBS file

dotsent

Board Regular
Joined
Feb 28, 2016
Messages
85
Office Version
  1. 365
Platform
  1. Windows
Hi!

I have a working VBScript file and VBA macro in Excel worksheet that does this:

1) refresh all data connections
2) write a timestamp in a specific cell
3) save & close the Excel worksheet

VBS file:

Code:
Set objExcel = CreateObject("Excel.Application")

objExcel.Application.Run "'G:\Blank.xlsm'!Module9.Date"
objExcel.DisplayAlerts = False
objExcel.Application.Quit

Set objExcel = Nothing

VBA inside the Blank.xlsm worksheet:

Code:
Sub Date()
ActiveWorkbook.RefreshAll

With Range("M12")
.Value = Now()
.NumberFormat = "dd/mm/yy hh:mm"
ActiveWorkbook.Save

End With
End Sub


Is it possible, to keep the Excel macro-free .xslx file and run both of those functions from an VBScript file, which would not call the macro inside the Excel workbook to do the things I need, but rather complete those tasks by itself? I'm very new to VBScript (and frankly, VBA, too), so I'm sorry if this comes as too basic of a question.

Thanks!
 
Last edited:

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
This should allow you to execute the same actions from the VBS workbook as a stand alone macro.

Code:
Sub runDate()
Dim wb
On Error Resume Next
    Set wb = Workbooks("Blank.xlsm") 'edit file extension
        If Err.Number = 9 Then
            Set wb = Workbooks.Open("G:\Blank.xlsm")
        End If
On Error GoTo 0
Err.Ckear
    With wb
        .RefreshAll
        With .Range("M12")
            .Value = Now()
            .NumberFormat = "dd/mm/yy hh:mm"
        End With
        .Save
    End With
End Sub
 
Last edited:
Upvote 0

Forum statistics

Threads
1,213,539
Messages
6,114,221
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top