Running a VBA macro from VBS file

dotsent

Board Regular
Joined
Feb 28, 2016
Messages
80
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

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.

JLGWhiz

Well-known Member
Joined
Feb 7, 2012
Messages
12,979
Office Version
  1. 2013
Platform
  1. Windows
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:

Watch MrExcel Video

Forum statistics

Threads
1,129,447
Messages
5,636,326
Members
416,912
Latest member
danluk12

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
Top