---
title: "Textfält till filnamn i 'Spara som...'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/73887-textfält-till-filnamn-i-spara-som"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Rödalacket"
published: "2003-04-12T19:45:22.000Z"
updated: "2003-04-12T21:51:13.000Z"
replies: 4
views: 391
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/73887-textfält-till-filnamn-i-spara-som"
---

# Textfält till filnamn i 'Spara som...'

## #1 — Rödalacket, 2003-04-12T19:45Z

Har en skrivskyddad excel-fil som jag öppnar och skall skriva till.
När jag gör det så kommer 'Spara som...' rutan upp och som filnamn står då 'Kopia av mittExcel.xls'

Kan jag ändra det så att jag plockar ett värde från ett textfält och lägger till det i filnamnet t.ex
23mittExcel.xls.

Permalänk: https://www.webforum.nu/p/73887

## #2 — niko, 2003-04-12T20:29Z

Jag förstår inte frågan riktigt .. Öppnar du ett exceldokument ifrån VB? Isåf hur? Anropar du Excels "Spara"-menyalternativ ifrån VB? Isåf hur? Har du nån kod?

Permalänk: https://www.webforum.nu/p/1009378

## #3 — Rödalacket, 2003-04-12T21:13Z

```
Public Function writeToExcel()

Dim myXL As New Excel.Application
Dim myWkBk As Excel.Workbook
Dim tempCell As String
Dim mySheet As Excel.Worksheet

    Set myWkBk = myXL.Workbooks.Open(App.Path & "\excel\mittExcel.xls")
    Set mySheet = myWkBk.Worksheets("Blad1")

        'Skriver till excelbladet

    myWkBk.close True
    Set myXL = Nothing
    Set myWkBk = Nothing
    making.Visible = False
End Function
```

mittExcel.xls är skrivskyddad och det vill jag att den skall vara och nu när jag kallar på funktionen ovan så kommer rutan "Spara som..." upp iom att mittExcel.xls är skrivskyddad.
Förvalt som förslaget filnamn är då Kopia på mittExcel.xls, det är där som jag skulle vilja att det står t.ex 23mittExcel.xls eller vad som helst där 23 kommer från ett textfält i VB.

Hoppas att det blev lite klarare nu... :)

Permalänk: https://www.webforum.nu/p/1009413

## #4 — niko, 2003-04-12T21:37Z

Ja, lite klarare blev det. Men eftersom jag inte är nån Office-expert så hade jag gärna sett själva spara-koden också.

Men kan du inte göra nåt sånt här:

```
    Set myWkBk = myXL.Workbooks.Open(App.Path & "\excel\mittExcel.xls")
    Set mySheet = myWkBk.Worksheets("Blad1")
        'Skriver till excelbladet
    If myWkBk.ReadOnly Then
        myWkBk.SaveAs App.Path & "\excel\" & dinTextbox.Text & "mittExcel.xls"
    Else
        myWkBk.Save
    End If
    ' osv
```

Eller vill du visa "Spara som"-rutan? Isåf får du visa mig hur man får fram den.

Permalänk: https://www.webforum.nu/p/1009429

## #5 — Rödalacket, 2003-04-12T21:51Z

Ja, vad säger man, funkar perfekt....  :bire

Permalänk: https://www.webforum.nu/p/1009441

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/73887-textfält-till-filnamn-i-spara-som