Just nu i M3-nätverket
Gå till innehåll

Bara skriva ut fliknamn


Mikael63

Rekommendera Poster

Något smart sätt att spara en lista, eller skriva ut, (alla)fliknamnen?

 

Excel 2003

 

 

 

[inlägget ändrat 2008-12-04 15:58:36 av Mikael63]

Länk till kommentar
Dela på andra webbplatser

Nej, eller nja, med kod... eller en "konstig" formel:

=EXTEXT(CELL("filnamn";Blad1!D1);HITTA("]";CELL("filnamn";Blad1!D1))+1;50)

ger dig namnet på blad1 i en cell.

 

En sådan formel per blad. Duger det?

 

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Länk till kommentar
Dela på andra webbplatser

Nja.. ger mer handpåläggning än att skriva av fliknamnen för hand..

 

Jag nyttjar mjukvaran TreePrint för att skriva ut en lista (och även filstrukturen) för en hop cad-ritningar. En del dokument finns som listor i EN Excelfil. Fliknamnen = listnamnen ex. "Apparatlista".

Jag skulle vilja exportera fliknamnen till en textfil, eller samla fliknamnen i en ny flik och därifrån klippa ut dessa.

 

formeln fungerade inte heller riktigt men jag ska kolla vad som knasar sig..

 

Länk till kommentar
Dela på andra webbplatser

Med lite VBA-kod kan det fungera.

 

Formeln ovan var ett exempel, jag sade inte att det var ett praktiskt lämpligt exempel men den ger vad du önskade...

 

Lite VBA-kod som du kanske gillar bättre, skriver till en textfil (dummy.txt) i samma mapp som arbetsboken. Nu skapad så att koden ska köras i den bok som ska exporteras men det är inget svår att anpassa den att köra mot annan bok om så önskas.

Namn och plats på fil kan inhämtas via dialog om så önskas.

Sub NameSaver()
   Dim fso As Object
   Dim ts As Object
   Dim fName As String
   Dim ws As Worksheet

   fName = ThisWorkbook.Path & "/ dummy.txt"

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.CreateTextFile(fName, True)

   With Blad1
       For Each ws In ThisWorkbook.Worksheets
           ts.WriteLine ws.Name
       Next ws
   End With

   ts.Close
   Set ts = Nothing
   Set fso = Nothing
End Sub

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...