Selecionar arquivo, ler linhas e inserir dados do Excel no banco

#1

boa tarde pessoal, segue script para selecionar o arquivo via explorer do windows, ler e inserir os dados no banco de dados, tinha procurado algo mas não encontrei, talvez alguém mais precise disso uma hora.

Sub CommandButton1_Click()

Dim objShell, objExec, strCmd, filePath
Dim objExcel, objWorkBook, sheet, totalRows

Set objShell = CreateObject("WScript.Shell")

' Comando PowerShell para abrir o OpenFileDialog do Windows Forms e esconder o PowerShell.
strCmd = "powershell -WindowStyle Hidden -command ""Add-Type -AssemblyName System.Windows.Forms; " & _
     	"$ofd = New-Object System.Windows.Forms.OpenFileDialog; " & _
     	"$ofd.Filter = 'Todos os Arquivos (*.*)|*.*'; " & _
     	"if($ofd.ShowDialog() -eq 'OK'){Write-Output $ofd.FileName}"""

Set objExec = objShell.Exec(strCmd)
filePath = objExec.StdOut.ReadLine()

Set objShell = Nothing

Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkBook = objExcel.Workbooks.open(filePath)

'seleciona a Planilha1 do excel
Set sheet = objWorkBook.Sheets ("Planilha1")
'verifica a quantidade de linhas
totalRows = sheet.UsedRange.Rows.Count

'varre as linhas do excel
for i = 1 to totalRows
	var1 = sheet.Cells(i,"A")
	var2 = sheet.Cells(i,"B")
	
	'roda rotina inserindo os itens das linhas
	c1 = rotina1(var1, var2)
next

'fecha o excel sem salvar o arquivo
objWorkBook.Close False
objExcel.Quit

Set objWorkBook = Nothing
Set objExcel = Nothing

IF i <> 1 THEN
	msgbox filePath & " adicionado com sucesso!", vbInformation
	
	'exclui o arquivo do excel (retirar caso não precise excluir)
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	fso.DeleteFile filePath, True
ELSE
	msgbox filePath & " ERRO na leitura do arquivo!", vbInformation
END IF
		
for i = 0 to 200000
next

'atualiza tabela
Screen.Item("E3Browser1").Requery()

End Sub

'update ou insert caso não encontre
Function rotina1(var1, var2)
Set consulta = Application.GetObject(“BD.insert.rotina1”)
consulta.SetVariableValue “var1”, var1
consulta.SetVariableValue “var2”, var2
Application.GetObject(“BD.insert.rotina1”).Execute(ImmediateExecute)
End function

Sub Vazia()
End Sub

2 Likes