Estou criando uma rotina para copiar o arquivo mscomct2.ocx da pasta atual para pasta \windows\system32 até aqui tudo beleza funciona perfeitamente.
porém quando vou registar ele com o CMD como administrador , ele esta dando um erro .. e não registra o componente ActiveX ... alguém poderia por favor me ajudar neste problema... desde já antecipo agradecimentos.
o problemas esta na seguinte linha >> Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe")
Sub CopiarArquivos_Registrar()
Dim fso
Dim origem As String, destino As String
origem = ActiveWorkbook.Path 'mude para a pasta de origem
destino = "C:\windows\system32\" 'mude para a pasta de destino
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not fso.FolderExists(origem) Then
MsgBox origem & " Não é uma pasta válida.", vbInformation, "Aviso"
ElseIf Not fso.FolderExists(destino) Then
MsgBox destino & " Não é uma pasta válida.", vbInformation, "Aviso"
Else
fso.CopyFile (origem & "\*.ocx"), destino ' Mude "\*.*" para "\*.xls" para mover somente arquivos Excel
End If
If Err.Number = 53 Then MsgBox "Arquivo não encontrado"
Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe")
End Sub
Question
mrfg2000
bom dia amigos
Estou criando uma rotina para copiar o arquivo mscomct2.ocx da pasta atual para pasta \windows\system32 até aqui tudo beleza funciona perfeitamente.
porém quando vou registar ele com o CMD como administrador , ele esta dando um erro .. e não registra o componente ActiveX ... alguém poderia por favor me ajudar neste problema... desde já antecipo agradecimentos.
o problemas esta na seguinte linha >> Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe")
Sub CopiarArquivos_Registrar() Dim fso Dim origem As String, destino As String origem = ActiveWorkbook.Path 'mude para a pasta de origem destino = "C:\windows\system32\" 'mude para a pasta de destino Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next If Not fso.FolderExists(origem) Then MsgBox origem & " Não é uma pasta válida.", vbInformation, "Aviso" ElseIf Not fso.FolderExists(destino) Then MsgBox destino & " Não é uma pasta válida.", vbInformation, "Aviso" Else fso.CopyFile (origem & "\*.ocx"), destino ' Mude "\*.*" para "\*.xls" para mover somente arquivos Excel End If If Err.Number = 53 Then MsgBox "Arquivo não encontrado" Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe") End SubLink to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.