..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Uporaba VBA kode v VB6

Pomoč pri izdelavi makrov

Uporaba VBA kode v VB6

OdgovorNapisal/-a Uros » Sr feb 17, 2010 4:29 pm

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
Uros
 
Prispevkov: 5
Pridružen: Po jan 18, 2010 4:07 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » Sr feb 17, 2010 7:24 pm

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
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3469
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron