SHOW:
|
|
- or go back to the newest paste.
1 | Sub TiedostoJuttu() | |
2 | ||
3 | Dim KysyTiedosto As String | |
4 | Dim KokoTiedostoNimi As String | |
5 | Dim LadattuWorkbook As Workbook | |
6 | ||
7 | KysyTiedosto = Application.InputBox(Prompt:="Avaa oletuskansiosta tiedosto nimeltä:", Title:="Avaa tiedosto", Default:="tiedosto.xlsx") | |
8 | ||
9 | If Dir(KysyTiedosto) <> "" Then | |
10 | Set LadattuWorkbook = Workbooks.Open(KysyTiedosto) | |
11 | LadattuWorkbook.Worksheets(1).Cells.Copy | |
12 | Workbooks.Add | |
13 | ActiveSheet.Paste | |
14 | If Dir("uusi.xlsx") <> "" Then | |
15 | Kill("uusi.xlsl") | |
16 | End If | |
17 | ActiveSheet.SaveAs Filename:="uusi.xlsx" | |
18 | Else | |
19 | MsgBox Prompt:="Tiedostoa " & KysyTiedosto & " ei löytynyt. Tarkista tiedoston nimi sekä sijainti ja yritä uudelleen!", Buttons:=vbExclamation, Title:="Tiedostoa ei löydy" | |
20 | End If | |
21 | End Sub |