|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.11.2006 10:42:19 |
Pavel |
|
|
|
07.11.2006 12:09:45 |
Rasta |
|
|
|
07.11.2006 12:58:15 |
Pavel |
|
|
 Aw:Aw:Aw:Öffnen einer excel-Datei, bestimmte Daten |
08.11.2006 11:09:58 |
Rasta |
|
|
Von:
Rasta |
Datum:
08.11.2006 11:09:58 |
Views:
1887 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Öffnen einer excel-Datei, bestimmte Daten |
Hi Pavel,
hier ist ein beispiel, wie man eine excel-datei öffnet und etwas darin suchst-- zieh dir mal den code rein und schau mal ob du damit was anfangen kannst. da siehst du schonmal wie du ein excel-object erstellst und damit eine datei öffnest.
viele grüße
rasta
Sub SaveMeTime()
Dim SearchFor As String
Dim ex As New Excel.Application
Dim file As String
Dim wb As Excel.Workbook
Dim wbRow As Long
Dim row As Long
Dim column As Long
Dim rFoundCell As Range
Dim searchColumn As Long
Dim RangeColumn As String
Dim foundcolumn As Long
Dim foundrow As Long
Dim date1
Dim date2
file = "c:\tmp\Factory Record.xls"
Set wb = ex.Workbooks.Open(file)
wb.Worksheets("A").Activate
row = 1
column = 2
wbRow = 1
Do Until Cells(row, column) = ""
SearchFor = Cells(row, column)
For searchColumn = 1 To 5
If searchColumn = 1 Then
RangeColumn = "A"
ElseIf searchColumn = 2 Then
RangeColumn = "B"
ElseIf searchColumn = 3 Then
RangeColumn = "C"
ElseIf searchColumn = 4 Then
RangeColumn = "D"
ElseIf searchColumn = 5 Then
RangeColumn = "E"
End If
Set rFoundCell = wb.Worksheets("A").Range(RangeColumn & wbRow)
Set rFoundCell = wb.Worksheets("A").Columns(searchColumn).Find(what:=SearchFor, after:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not rFoundCell Is Nothing Then
foundcolumn = rFoundCell.column
foundrow = rFoundCell.row
date1 = wb.Worksheets("A").Cells(foundrow, 5)
date2 = DateSerial(Year(date1), Month(date1) + 14, Day(date1))
Cells(row, 11).NumberFormat = "dd/mm/yyyy;@"
Cells(row, 11) = date2
End If
wbRow = wbRow + 1
'count the range plus 1, excel needs that somehow....
Set rFoundCell = wb.Worksheets("A").Range(RangeColumn & wbRow)
Next
row = row + 1
Loop
MsgBox "Done"
wb.Close
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.11.2006 10:42:19 |
Pavel |
|
|
|
07.11.2006 12:09:45 |
Rasta |
|
|
|
07.11.2006 12:58:15 |
Pavel |
|
|
Aw:Aw:Aw:Öffnen einer excel-Datei, bestimmte Daten |
08.11.2006 11:09:58 |
Rasta |
|
|