/
Forside
/
Teknologi
/
Administrative
/
MS-Office
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
MS-Office
#
Navn
Point
1
sion
18709
2
refi
14474
3
Klaudi
9389
4
Rosco40
5695
5
berpox
5456
6
dk
5398
7
webnoob
4919
8
Benjamin...
4870
9
o.v.n.
4637
10
EXTERMINA..
4373
Makro i word
Fra :
Anders Winther
Dato :
28-01-04 16:30
Hej
Jeg vil gerne lave en makro i word som skal indsætte et excel dokument.
Dette er jo intet problem så længe jeg kender navnet på excel dokumentet.
Kan man ikke få den til at spørge på det filnavn ?
--
AW
Mads (
29-01-2004
)
Kommentar
Fra :
Mads
Dato :
29-01-04 08:06
"Anders Winther" <aw@mountaindewFJERN.dk> wrote in message
news:4017d586$0$95102$edfadb0f@dread11.news.tele.dk...
> Hej
>
> Jeg vil gerne lave en makro i word som skal indsætte et excel dokument.
>
> Dette er jo intet problem så længe jeg kender navnet på excel dokumentet.
>
> Kan man ikke få den til at spørge på det filnavn ?
Du kan bruge InputBox, den viser en lile dialogbos hvor man har mulighed for
at indtaste filens navn.
F.eks.:
FileToInsert = InputBox("Hvilket Excel fil ønsker du indsat?")
Eller IMHO lidt mere elegant med denne snip kode
With Dialogs(wdDialogFileOpen)
.Name = "*.xls"
If .Display = -1 Then
FileToInsert = CurDir & "\" & .Name
Else
Exit Sub
End If
End With
Her bruger jeg Word Åbn en Fil dialogboks til at lokalisere filen.
Mvh Mads
Anders Winther (
29-01-2004
)
Kommentar
Fra :
Anders Winther
Dato :
29-01-04 18:57
> > Kan man ikke få den til at spørge på det filnavn ?
>
> Du kan bruge InputBox, den viser en lile dialogbos hvor man har mulighed
for
> at indtaste filens navn.
Jeg fandt selv på denne:
Sub TT_InsertObject()
With Dialogs(wdDialogFileOpen)
.Display
If .Name <> "" Then
NytNavn = .Name
End If
End With
If NytNavn <> "" Then
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8",
FileName:= _
NytNavn, LinkToFile:=True, DisplayAsIcon:=False
End If
End Sub
Men hvordan hvis jeg nu kun vil have en enkelt kolonne ?
--
AW
Søg
Alle emner
Teknologi
Administrative
MS-Office
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408926
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.