FORMATAR HYPERLINK EM EXPORTACAO DE VB6 PARA EXCEL

ISISNOBRE 13/12/2012 10:46:20
#415903

Olá,

Preciso fazer uma exportação para Excel, de uma aplicação em VB6, e preciso que uma das colunas, que conterá um caminho de arquivo da rede, seja um Hyperlink. Não sei como fazer isso! Já tentei o código abaixo, mas não dá certo, as células em que tento gravar o hyperlink ficam vazias! Somente o [Ô]TESTE 3[Ô] é exportado.
Alguém poderia por favor me ajudar??? Desde já agradeço!

Dim sheetID As Object
Dim Planilha As String
Planilha = [Ô]C:\Arquivos de Programas\Microsoft Visual Studio\VB98\TESTE.xls[Ô]
If Dir(Planilha) = [Ô][Ô] Then
MsgBox [Ô]Não foi encontrada a planilha padrão.[Ô] + Chr$(10) + [Ô]Exportação interrompida.[Ô], vbOKOnly, [Ô]ATENÇÃO[Ô]
Exit Sub
End If
Screen.MousePointer = 11
On Error Resume Next
[ô] Procura por uma cópia do Excel em execução
Set appMedicoes = GetObject(, [Ô]Excel.Application[Ô])
If Err.Number <> 0 Then [ô] Se o Excel não está em execução
Set appMedicoes = CreateObject([Ô]Excel.Application[Ô])
End If
Err.Clear
[ô]On Error GoTo ErrorImport
Set wbMedicoes = appMedicoes.Workbooks.Open(Planilha)
Set sheetID = wbMedicoes.Sheets([Ô]Plan1[Ô])
sheetID.Cells(3, 2) = [Ô]=HYPERLINK([Ô] + Chr$(34) + [Ô]C:    emp\43 razões.pdf[Ô] + Chr$(34) + [Ô];[Ô] + Chr$(34) + [Ô]Arquivo 1[Ô] + Chr$(34) + [Ô])[Ô]
sheetID.Cells(4, 2) = [Ô]=HYPERLINK([ô]C:    emp\43 razões.pdf[ô];[ô]43 razões.pdf[ô])[Ô]
sheetID.Cells(5, 2) = [Ô]TESTE 3[Ô]
NovoNome = Left$(Planilha, Len(Planilha) - 4) + [Ô]-hyperlink.xls[Ô]
wbMedicoes.SaveAs NovoNome
Screen.MousePointer = 1
MsgBox [Ô]Exportação concluída. [Ô], vbOKOnly
appMedicoes.Quit
Set sheetID = Nothing
Set appMedicoes = Nothing
Set wbMedicoes = Nothing
Exit Sub