Avatar billede jjdk Nybegynder
05. juni 2005 - 23:03 Der er 6 kommentarer og
1 løsning

Mystisk Excel - arket er tom, men ikke ved "Vis som Webside"

Jeg er ved at konvertere et regneark til html, men har det problem, at der kommer noget med på den generede Webside, som jeg ikke kan se i Excel.
Jeg har slettet alt på arket, og når jeg viser udskrift, er det fortsat tomt. Men når jeg "viser som Webside" i "Filer-menuen", er noget med, som jeg ikke kan finde ud af at slette.
Jeg har lagt arket på følgende link:
www.fdf.dk/esbjerg1/test.xls
Avatar billede vejmand Juniormester
06. juni 2005 - 02:44 #1
Vil lige sige at dette har jeg absolut ingen forstand på!
Det lykkedes dog at fjerne det du ønsker, men det fjerner måske også mere end du ønsker?
Men her er hvordan jeg gjorde:

Åbn arket i Excel -> Funktioner -> Makro -> Micro scripteditor (skal muligvis installeres fra CD) -> Edit -> Select all -> Delete

Så er arket tomt!

Jeg må indrømme, jeg har ingen anelse om du kan bruge dette til noget, ellers se venligst bort fra min kommentar.  c",)
Avatar billede jkrons Professor
06. juni 2005 - 10:39 #2
Som vejmand anfører ligger problemet i det Script, der ligger til grund for HTML siden. I dette script findes en række tekstboxe, defineret ved

<v:textbox>
.....
</v:textbox>

Indholdet på din side står i disse tekstbokse.
Avatar billede bak Forsker
06. juni 2005 - 13:14 #3
Hvis du vil af med dem kan du gøre denne makro.

Sub SletBokse()
Dim s As Shape
For Each s In ActiveSheet.Shapes
  s.Select
  s.Delete
Next
End Sub
Avatar billede jjdk Nybegynder
06. juni 2005 - 15:04 #4
Hej Bak.
Problemet er, at jeg har en projektmappe med 15 ark, hvor der på hvert ark er 3-5 forskellige bokse, som er OK.
Det er kun de skjulte, jeg vil af med.
Er det muligt via makrokode, at vise de skjulte bokse (altså dem jeg ikke kan finde), for så kan jeg jo bare klikke på dem, og slette dem manuelt.
Avatar billede bak Forsker
06. juni 2005 - 17:37 #5
Denne kode viser alle bokse

Sub FindBokse()
  Dim s As Shape
  Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
      For Each s In ws.Shapes
        If s.Height < 5 Then s.Height = 150
        If s.Width < 5 Then s.Width = 150
      Next
  Next
End Sub
Avatar billede jjdk Nybegynder
06. juni 2005 - 22:57 #6
Tak til alle for jeres medvirken. Det bedste svar, som også nemt løste mit problem, var Bak's. Håber det er OK med jer andre.
Giver Bak lige et svar.
Avatar billede bak Forsker
07. juni 2005 - 07:55 #7
ok :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester