Jump to content

Welcome to Geeks to Go - Register now for FREE

Need help with your computer or device? Want to learn new tech skills? You're in the right place!
Geeks to Go is a friendly community of tech experts who can solve any problem you have. Just create a free account and post your question. Our volunteers will reply quickly and guide you through the steps. Don't let tech troubles stop you. Join Geeks to Go now and get the support you need!

How it Works Create Account

Execute VBA script from VBS

  • Please log in to reply



    New Member

  • Member
  • Pip
  • 1 posts
The "cool kids" are able to code to run Excel VBA macros "outside" of Excel through VBS script:
With CreateObject("Excel.Application")
.EnableEvents = False
.DisplayAlerts = False
.Workbooks.Open "C:\Test.csv"
With .ActiveSheet
' 1 = xlAscending, 0 = xlNo (Header)
.Range("A:C").Sort .Range("C1"), 1, .Range("B1"), , 1, .Range("A1"), , , 1, 0
End With
.ActiveWorkbook.Close False
End With
I would like to be able to do the same with the following or similar code:
Option Explicit
Sub DeleteDups()
Dim x As Long
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
Range("A" & x).EntireRow.Delete
End If
Next x
End Sub
Is this possible with this kind of function? I have tried, obviously with no luck, and my skills are minimal.

Many thanks in advance


Edited by fiiish, 05 April 2011 - 04:58 AM.

  • 0


Similar Topics

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

As Featured On:

Microsoft Yahoo BBC MSN PC Magazine Washington Post HP