Question

I ran a macro as below:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("D7").Select
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Documents and Settings\rakshiar\Desktop\\Operating+System+Concepts.pdf" _
        , Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINDOWS\Installer\{AC76BA86-7AD7-FFFF-7B44-AB0000000001}\PDFFile_8.ico", _
        IconIndex:=0, IconLabel:="Operating+System+Concepts.pdf").Select

    End Sub

And trying to convert it to VBScript code as follows:

excel = WIN32OLE.new('Excel.Application')
excel.visible = true
wb=excel.workbooks.open("E:\\WIPData\\Ruby\\Scripts\\GSL_File_DownLoad.xlsx")
wbs= wb.Worksheets(1)
wbs.cells(rows,2).values = wbs.OLEObjects.Add(,full_path,False,True, IconFileName:= _
               "C:\WINDOWS\Installer\{AC76BA86-7AD7-FFFF-7B44-AB0000000001}\PDFFile_8.ico",_
               IconIndex:=0,"Operating+System+Concepts.pdf")

But now could not understand how and what to put to the IconIndex and IconFileName argument?

I have .pdf,.tif,.docs,docx,.gif etc extions files which I need to attach to the Excel column using script. So at runtime how would I get values like "C:\WINDOWS\Installer\{AC76BA86-7AD7-FFFF-7B44-AB0000000001}\PDFFile_8.ico" for .pdf files?

Please help me here for the same.

Answer 1

You can use variables like this Set ol = ws.OLEObjects.Add(, FileToBeinserted, False, True, icoFile, icoIndex,lbl) and before executing the above statement, simply identify what type of file you are inserting and then set the path to the relevant icon file icoFile

Here is a sample (TRIED AND TESTED) which works for selected extensions. Please amend as applicable

'~~> Sample icons for relevant files
Const pdfIco = "D:\Temp\icons\ARROWS\AARROW.ico"
Const wrdIco = "D:\Temp\icons\ARROWS\ANYWHERE.ico"
Const TiffIco = "D:\Temp\icons\ARROWS\ARROW1.ico"
Const OtherFormat = "D:\Temp\icons\ARROWS\ARROW1A.ico"

Dim Xl, Wb, Ws, ol, FileToBeInserted, lbl

Set Xl = CreateObject("Excel.Application")
Xl.Visible = True

Set Wb = Xl.Workbooks.Add
Set Ws = Wb.Sheets(1)

'~~> Let user select a file
FileToBeInserted = Xl.GetOpenFilename("All Files (*.*), *.*")

'~~> Check if the user selected a file
If FileToBeInserted <> False Then
    '~~> Get the file name for the label
    lbl = GetFileName(FileToBeInserted)

    icoIndex = 0

    '~~> I am testing for just 3 extensions. Amend as applicable
    Select Case GetFileExtn(FileToBeInserted)
    Case "PDF"
        icoFile = pdfIco
    Case "DOCX", "DOC"
        icoFile = wrdIco
    Case "Tiff"
        icoFile = TiffIco
    Case Else
        icoFile = OtherFormat
    End Select

    '~~> Create the object
    Set ol = Ws.OLEObjects.Add(, FileToBeInserted, False, True, icoFile, icoIndex, lbl)
End If

'~~> Function to get the File extention
Function GetFileExtn(sFile)
    GetFileExtn = Trim(UCase(Right(sFile, Len(sFile) - InStrRev(sFile, "."))))
End Function

'~~> Function to get the file name
Function GetFileName(sFile)
    GetFileName = Left(sFile, (InStrRev(sFile, ".", -1, 1) - 1))
End Function