Uporaba VBA kode v VB6

[Uros]

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

[admin]

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:

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