Save As To Prompt For Location But Use Filename From Cell
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}
1
I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.
Can someone help me with this?
Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub
excel vba excel-vba save-as
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
asked Nov 16 '18 at 13:21
MECMEC
717
add a comment |
1
I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.
Can someone help me with this?
Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub
excel vba excel-vba save-as
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
asked Nov 16 '18 at 13:21
MECMEC
717
add a comment |
1
1
1
I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.
Can someone help me with this?
Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub
excel vba excel-vba save-as
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
asked Nov 16 '18 at 13:21
MECMEC
717
I got this code from a forum and it works but I need to tweak it to show me the "save as" box but I with the name already populated with my variable FName.
Can someone help me with this?
Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub
excel vba excel-vba save-as
excel vba excel-vba save-as
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
asked Nov 16 '18 at 13:21
MECMEC
717
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
asked Nov 16 '18 at 13:21
MECMEC
717
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
edited Nov 16 '18 at 13:27
Pᴇʜ
25.1k63052
25.1k63052
asked Nov 16 '18 at 13:21
MECMEC
717
asked Nov 16 '18 at 13:21
MECMEC
717
asked Nov 16 '18 at 13:21
MECMEC
717
717
add a comment |
add a comment |
1 Answer
1
active
oldest
votes
1
You can use the Application.GetSaveAsFilename method for that …
Option Explicit
Sub Save_New()
Dim FName As String
FName = Sheets("Sheet1").Range("A1").Text
Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)
If Not DialogResult = False Then
ThisWorkbook.SaveAs Filename:=DialogResult
Else
'user clicked cancel
End If
End Sub
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53338747%2fsave-as-to-prompt-for-location-but-use-filename-from-cell%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
1
You can use the Application.GetSaveAsFilename method for that …
Option Explicit
Sub Save_New()
Dim FName As String
FName = Sheets("Sheet1").Range("A1").Text
Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)
If Not DialogResult = False Then
ThisWorkbook.SaveAs Filename:=DialogResult
Else
'user clicked cancel
End If
End Sub
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
add a comment |
1
You can use the Application.GetSaveAsFilename method for that …
Option Explicit
Sub Save_New()
Dim FName As String
FName = Sheets("Sheet1").Range("A1").Text
Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)
If Not DialogResult = False Then
ThisWorkbook.SaveAs Filename:=DialogResult
Else
'user clicked cancel
End If
End Sub
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
add a comment |
1
1
1
You can use the Application.GetSaveAsFilename method for that …
Option Explicit
Sub Save_New()
Dim FName As String
FName = Sheets("Sheet1").Range("A1").Text
Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)
If Not DialogResult = False Then
ThisWorkbook.SaveAs Filename:=DialogResult
Else
'user clicked cancel
End If
End Sub
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
You can use the Application.GetSaveAsFilename method for that …
Option Explicit
Sub Save_New()
Dim FName As String
FName = Sheets("Sheet1").Range("A1").Text
Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)
If Not DialogResult = False Then
ThisWorkbook.SaveAs Filename:=DialogResult
Else
'user clicked cancel
End If
End Sub
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
edited Nov 16 '18 at 14:37
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
answered Nov 16 '18 at 13:32
PᴇʜPᴇʜ
25.1k63052
25.1k63052
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
add a comment |
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
Thanks for the code but I got an error "Compile error: Named argument not found" the code stops at the (InitialFilename:=FName) part of the code
– MEC
Nov 16 '18 at 14:11
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
@MEC Sorry had a typo in it: InitialFilaname should be InitialFilename of course. Fixed it.
– Pᴇʜ
Nov 16 '18 at 14:37
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
OMG, I didn't notice it either, works like a champ, thanks
– MEC
Nov 16 '18 at 14:56
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53338747%2fsave-as-to-prompt-for-location-but-use-filename-from-cell%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
