17. december 2006 - 08:20Der er
7 kommentarer og 1 løsning
Gemme med felt ndhold
Jeg har et regneark hvor jeg har oprettet en kommandoknap som jeg gerne vil have til at gemme det aktuelle Excelark i en bestemt mappe og med indholdet af 2 felter som filnavn?
Sub tst() Dim navn As String sti = Sheets("Ark1").Cells(1, 3) 'C1 navn = sti & Sheets("Ark1").Cells(1, 1) & Sheets("Ark1").Cells(1, 2) & ".xls" 'A1 og B1 ActiveWorkbook.SaveAs navn End Sub
Private Sub CommandButton2_Click() Sub tst() Dim navn As String sti = Sheets("Ark1").Cells(1, 3) 'C1 navn = sti & Sheets("Ark1").Cells(1, 1) & Sheets("Ark1").Cells(1, 2) & ".xls" 'I7 og B4 ActiveWorkbook.SaveAs navn End Sub
Private Sub CommandButton2_Click() Dim navn As String, sti As String sti = Sheets("Ark1").Cells(1, 3) 'C1 navn = sti & Sheets("Ark1").Cells(1, 1) & Sheets("Ark1").Cells(1, 2) & ".xls" 'I7 og B4 ActiveWorkbook.SaveAs navn End Sub
Private Sub CommandButton2_Click() Sub tst() Dim navn As String sti = Sheets("Ark1").Cells(1, 3) 'C1 navn = sti & Sheets("Ark1").Cells(7, 9) & Sheets("Ark1").Cells(4, 2) & ".xls" 'I7 og B4 ActiveWorkbook.SaveAs navn End Sub
Private Sub CommandButton2_Click() Dim navn As String sti = Sheets("Ark1").Cells(1, 3) 'C1 navn = sti & Sheets("Ark1").Cells(7, 9) & Sheets("Ark1").Cells(4, 2) & ".xls" 'I7 og B4 ActiveWorkbook.SaveAs navn End Sub
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.