Use something like...
Dim vArr As Variant
vArr = Split(ActiveSheet.QueryTables(1).Connection, "\")
Debug.Print vArr(UBound(vArr))
Ajit
-Original Message-
From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com]
On Behalf Of Mr Incredible
Sent: Sunda
Hi,
Nearly there.
ActiveSheet.QueryTables(1).Connection returns the string "TEXT;"
Is there a way just to get the file name and not the file type and
path?
Thanks
On 17 Apr, 15:09, "Ajit Navre" wrote:
> Hi there,
>
> If you have loaded the query with the Data->Import External Data->Impor
I Need a Macro for my Statement Which Contains the Source Document
and Output1, Output2 FilesOf Which I need a Macro for Ouput1
Seperately and Output2 Seperately...I Need the Output based on the
Source Document FieldsI am Here with Attaching the File Link where
in you can Download the Fil
Dear all,
=OFFSET(AE1,MATCH(B8,AE2:AE65536,0),1,COUNTIF(AE2:AE65536,B8),1)
The offset function given by Vinay is working absolutely fine,
but once the Product changes, Specification should be refreshed.
Can this problem be solved using macros.
I am good in excel, but very bad in Macros.
I am try
Dear All,
I have a query. I am working on pivot table wherein the tabe has few values
in column A. Now if i record a macro where I select the first item after
giving it a filter. Copy the details of first item into a new excel sheet.
Then save the macro. Next time when i run the macro it will only
Try This :
Select Case Crit_Value
Case 0
Cells(25, 1).Text = "No Order"
Case Crit_Value < 0
Cells(25, 1).Text = "Error Crit_value < 0"
Case Is < Init_Inven
Cells(25, 1).Text = "No order inventory on hand>Crit value"
Try:
LastRow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row
On Fri, Apr 17, 2009 at 8:01 PM, boney wrote:
>
> I have two sheets A and B . I need to copy the columns ( A through an
> unknown number of columns ) from sheet A into sheet B starting from
>
I am currently traveling and don't have access to Excel but will try and
help.
Try the following formula:
=if(A1="other","Please State Below","")
Norman
On Fri, Apr 17, 2009 at 6:56 PM, H & S Support <
healthandsafetysupp...@googlemail.com> wrote:
> 1 final Question Norman,
> Sorry.
>
> If for e
Ajay,
If you have Acrobat 7.0/8.0/9.0 installed on your computer, then a code like
the following will do.
You need to create a reference to Acrobat.TLB.
''
Dim APDF As New AcroPDDoc
Dim APG As AcroPDPage
Dim APOINT As AcroPoint
Dim ARect As New AcroRect
