Hello,
I?m newbie at VBa and I don?t know how to export images that I see in a worksheet and put in a Path as c:\temp\<worksheet>\imageXX.gif due
I don't know what cell there are and what their number.

My VBA Code gettind datas from that worksheet:

[VBA] Option Compare Database
Private Const ctPathXLS = "C:\temp\"
Private oWorkbook As Excel.Workbook
Private oDb As Database
Private Sub ImportaResumoHorario()
Dim oFileSystem As Scripting.FileSystemObject
Dim oDir As Scripting.Folder
Dim oFile As Scripting.File
Dim oExcel As Excel.Application
Dim oWorksheet As Worksheet
Dim strComando As String
Set oDb = CurrentDb
oDb.Execute ("delete from <My data base>)
Set oExcel = New Excel.Application
Set oFileSystem = New Scripting.FileSystemObject
Set oDir = oFileSystem.GetFolder(ctPathXLS)
Set oFileSystem = Nothing
For Each oFile In oDir.Files
If oFile.Type = "Microsoft Excel Worksheet" Or oFile.Type = "Planilha do Microsoft Excel" Then
Set oWorkbook = oExcel.Workbooks.Open(ctPathXLS & oFile.Name, False, True)
Set oWorksheet = oWorkbook.Worksheets("fl1")
With oWorksheet
.Activate
strA = Right(.Range("E7").Value, 3)
strB = .Range("L7").Value
strC = .Range("T7").Value
strD = .Range("AB7").Value
.
.[/VBA]
Till now everything works fine, even recording at my data base, but
I need now get all images (I see the names Imagem 19,Imagem 20 and so on) from a worksheet and put in a Path as mentioned above.


Thanks in advance for any help.
Ivan