/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel XP: Makro der henter data fra ekster~
Fra : Jesper Stocholm


Dato : 07-07-03 13:21

Jeg er ved at skrive en makro, der skal sammenflette data fra to eksterne
Excel-filer. Som udgangspunkt skal jeg kopiere indholdet af et range af
celler _inklusiv_formattering_ mha min makro.

Jeg skal dermed kopiere indholdet af data i ranget A1-EZ3 (dvs al indhold
inklusiv formattering i de tre øverste rækker til kolonne EZ3 - eller til
den sidste række i det specifikke spreadsheet i det eksterne workbook.

Det giver mig et par problemer - fx:

Hvis data i mit spreadsheet ser således ud:

| a | b | c | d |
-------------------
1 | 1 2
2 |
3 | 2

Her skal jeg kopiere data fra kolonnerne 1-4 (og rækkerne 1-3), men
hvordan får jeg fx antallet af kolonner (4) ud af det? Hvis jeg bruger
Application.Columns.Count får jeg tallet 256 og det er jo en anelse for
meget.

Når jeg får fundet ud af hvordan jeg finder cellerne i et bestemt range,
så skal jeg have kopieret dem over til mit "current" spreadsheet med
startpunkt i en specifik celle (som øverste venstre hjørne) som fx celle
(4,5). Hvordan gør jeg det?

Referencer til sites på nettet hvor jeg kan læse om dette vil også være
yderst velkomne.



--
Jesper Stocholm - http://stocholm.dk
Fra Kidchen på kids.tv2.dk:
[Miss Mukuba] Og vi skal nu til konkurrencen. Spørgsmålet er
"Hvilken af grisens indvolde indeholder leverpostej?"

 
 
Leo Heuser (10-07-2003)
Kommentar
Fra : Leo Heuser


Dato : 10-07-03 07:09

Jesper

Her er et par bud ud fra, hvordan jeg har forstået dine
spørgsmål:

--
Med venlig hilsen
Leo Heuser
MVP Excel

Followup to newsgroup only, please.

"Jesper Stocholm" <jespers@stocholm.invalid> skrev i en meddelelse
news:Xns93B191F4AE789stocholmdk@130.226.1.34...
> Jeg er ved at skrive en makro, der skal sammenflette data fra to eksterne
> Excel-filer. Som udgangspunkt skal jeg kopiere indholdet af et range af
> celler _inklusiv_formattering_ mha min makro.
>
> Jeg skal dermed kopiere indholdet af data i ranget A1-EZ3 (dvs al indhold
> inklusiv formattering i de tre øverste rækker til kolonne EZ3 - eller til
> den sidste række i det specifikke spreadsheet i det eksterne workbook.
>
> Det giver mig et par problemer - fx:
>
> Hvis data i mit spreadsheet ser således ud:
>
> | a | b | c | d |
> -------------------
> 1 | 1 2
> 2 |
> 3 | 2
>
> Her skal jeg kopiere data fra kolonnerne 1-4 (og rækkerne 1-3), men
> hvordan får jeg fx antallet af kolonner (4) ud af det? Hvis jeg bruger
> Application.Columns.Count får jeg tallet 256 og det er jo en anelse for
> meget.

NumberOfRows = Range("A1:D3").Rows.Count
NumberOfColumns = Range("A1:D3").Columns.Count

>
> Når jeg får fundet ud af hvordan jeg finder cellerne i et bestemt range,
> så skal jeg have kopieret dem over til mit "current" spreadsheet med
> startpunkt i en specifik celle (som øverste venstre hjørne) som fx celle
> (4,5). Hvordan gør jeg det?

Sheets("Ark1").Range("A1:D3").Copy Destination:=Sheets("Ark2").Cells(4,5)

eller

With Sheets("Ark1")
.Range(.Cells(1,1), .Cells(NumberOfRows,NumberOfColumns)).Copy _
Destination:=Sheets("Ark2").Cells(4,5)
End With

Læg mærke til punktummerne i .Cells(1,1) og
..Cells(NumberOfRows,NumberOfColumns).
De knytter cellerne til Sheets("Ark1").

>
> Referencer til sites på nettet hvor jeg kan læse om dette vil også være
> yderst velkomne.

Forbind dig direkte til Microsofts server
msnews.microsoft.com
og find masser af gods i
microsoft.public.excel-grupperne.



>
>
>
> --
> Jesper Stocholm - http://stocholm.dk
> Fra Kidchen på kids.tv2.dk:
> [Miss Mukuba] Og vi skal nu til konkurrencen. Spørgsmålet er
> "Hvilken af grisens indvolde indeholder leverpostej?"



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408927
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste