GeocodingInExcel/RunImport.vbs at master · bharloe/GeocodingInExcel · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample()

  Dim xlApp
  Dim xlBook
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  Dim fullpath
  fullpath = fso.GetAbsolutePathName(".")
  set fso = Nothing

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open(fullpath & "\GeocodingStart.xlsm")

  xlApp.Run "DoTheImport"
  xlApp.ActiveWorkbook.SaveAs fullpath & "\RegexImported.xlsm"
  xlApp.Quit

  Set xlApp = Nothing
  Set xlBook = Nothing

End Sub