Pozdravljeni,
zanima me ali je možno v Visual Basicu odpirati in razbirati podatke iz excela. Iz accessa vem da se ba, vendar se je v službi pojavila dodatna potreba po uvozu podatkov iz excela in nadaljno obdelavo.
Ali mi lahko še pomagate s kakšno literaturo kjer bi videl razlike?
Hvala
Uporaba VBA kode v VB6
Pozdravljeni,
posebne literature ne poznam, lahko pa vam ponudim primer, kot je opisano v sledeči tematiki.
V omenjeni tematiki je govora o sledečem makru:
posebne literature ne poznam, lahko pa vam ponudim primer, kot je opisano v sledeči tematiki.
V omenjeni tematiki je govora o sledečem makru:
Koda: Izberi vse
Sub ZamenjajZaznamek(BM As String, Vred As String)
Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks(BM).Range
BMRange.Text = Vred
ActiveDocument.Bookmarks.Add BM, BMRange
End Sub
' www.matjazev.net
' 10.03.2004
Sub PreberiPodatkeIzExcela()
Dim objExcel As Excel.Application
Dim objDelZvezek As Excel.Workbook
Dim objList As Excel.Worksheet
Dim oRng As Excel.Range
Dim ExcelNiZagnan As Boolean
Dim ExcelovaDatoteka As String
' Excelova tabela s podatki
ExcelovaDatoteka = "c:\podatki.xls"
' Ali Excel že teče
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err Then
ExcelNiZagnan = True
Set objExcel = New Excel.Application
End If
On Error GoTo Err_Handler
Set objDelZvezek = objExcel.Workbooks.Open(FileName:=ExcelovaDatoteka)
Set objList = objDelZvezek.Worksheets("List1")
' zapišem številko v dokument
' recimo, da se številka nahaja v celici A1
Dim Stevilka As String
Stevilka = objList.Range("a1").Value
ZamenjajZaznamek "stevilka", Stevilka
' dokument še shranim
ChangeFileOpenDirectory "C:\"
ActiveDocument.SaveAs FileName:=Stevilka & ".doc"
If ExcelNiZagnan Then
objExcel.Quit
End If
' sprostim za sabo
Set oRng = Nothing
Set objList = Nothing
Set objDelZvezek = Nothing
Set objExcel = Nothing
Exit Sub
Err_Handler:
MsgBox "napaka pri odpiranju datoteke [" & ExcelovaDatoteka & "]! " & _
Err.Description, vbCritical, "NAPAKA: " & Err.Number
If ExcelNiZagnan Then
objExcel.Quit
End If
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator