Importe dados do Excel para o Access, desde que a tabela no Access tenha sido criada.
conexão fraca
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Fonte de dados=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Senha do banco de dados=;Propriedades estendidas=Excel 5.0;Fonte de dados=c:book1.xls"
sql = "SELECIONE * DE [Planilha1$]"
definir rs = conn2.execute(sql)
enquanto não rs.eof
sql = "inserir em xxx([a],[b],[c],[d]) valores('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movnext
wend
conn.fechar
definir conn = nada
conn2.fechar
definir conn2 = nada
função fixsql(str)
dim newstr
novastr = str
se isnull(newstr) então
newstr = ""
outro
newstr = substituir(newstr,"'","''")
terminar se
fixsql = newstr
a função final
é importada para o banco de dados Sql Server, se o arquivo Excel e o banco de dados não estiverem no mesmo servidor, consulte o código acima. Na mesma máquina, você pode consultar o seguinte código (não há necessidade de criar uma tabela primeiro, o programa criará a tabela automaticamente, usando a primeira linha de dados do Excel como nome do campo da tabela):
dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};servidor=localhost;uid=sa;pwd=sa;banco de dados=hwtemp;")
sql = "SELECIONE * na nova tabela FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";ID do usuário=Admin;Senha=;Propriedades estendidas=Excel 5.0') ...[Planilha1$] "
conn.execute(sql)
conn.fechar
set conn = nada
selecionado no Blog do sxycgxj