Jump to content

Welcome to Geeks to Go - Register now for FREE

Geeks To Go is a helpful hub, where thousands of volunteer geeks quickly serve friendly answers and support. Check out the forums and get free advice from the experts. Register now to gain access to all of our features, it's FREE and only takes one minute. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more.

Create Account How it Works
Photo

Execute VBA script from VBS


  • Please log in to reply

#1
fiiish

fiiish

    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.Save
.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

fiiish

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

  • 0

Advertisements







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