VBA Strange Email Hangup
0
My VBA Code works on one Workbook but not on the other.
In Summary the code:
- Produces the needed end result in both
- But it lags about a minute in one long
- But is otherwise identical
- Sheet names are correct
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy is where it lags
Where should I look for the error? It feels like I'm missing something.
Sub EmailReimbursementRequest()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim TheActiveWindow As Window
Dim TempWindow As Window
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy
End With
TempWindow.Close
Set Destwb = ActiveWorkbook
Code goes on from here...
performance vba excel email
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
add a comment |
0
My VBA Code works on one Workbook but not on the other.
In Summary the code:
- Produces the needed end result in both
- But it lags about a minute in one long
- But is otherwise identical
- Sheet names are correct
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy is where it lags
Where should I look for the error? It feels like I'm missing something.
Sub EmailReimbursementRequest()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim TheActiveWindow As Window
Dim TempWindow As Window
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy
End With
TempWindow.Close
Set Destwb = ActiveWorkbook
Code goes on from here...
performance vba excel email
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
add a comment |
0
0
0
My VBA Code works on one Workbook but not on the other.
In Summary the code:
- Produces the needed end result in both
- But it lags about a minute in one long
- But is otherwise identical
- Sheet names are correct
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy is where it lags
Where should I look for the error? It feels like I'm missing something.
Sub EmailReimbursementRequest()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim TheActiveWindow As Window
Dim TempWindow As Window
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy
End With
TempWindow.Close
Set Destwb = ActiveWorkbook
Code goes on from here...
performance vba excel email
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
My VBA Code works on one Workbook but not on the other.
In Summary the code:
- Produces the needed end result in both
- But it lags about a minute in one long
- But is otherwise identical
- Sheet names are correct
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy is where it lags
Where should I look for the error? It feels like I'm missing something.
Sub EmailReimbursementRequest()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim TheActiveWindow As Window
Dim TempWindow As Window
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
.Sheets(Array("TotalReimbursement", "ReadyForExport")).Copy
End With
TempWindow.Close
Set Destwb = ActiveWorkbook
Code goes on from here...
performance vba excel email
performance vba excel email
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
asked 36 mins ago
Dietrich SchmitzDietrich Schmitz
1
1
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
New contributor
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
Dietrich Schmitz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
add a comment |
add a comment |
0
active
oldest
votes
Your Answer
StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
});
});
}, "mathjax-editing");
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: "196"
};
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: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
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
});
}
});
Dietrich Schmitz is a new contributor. Be nice, and check out our Code of Conduct.
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%2fcodereview.stackexchange.com%2fquestions%2f211218%2fvba-strange-email-hangup%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
0
active
oldest
votes
0
active
oldest
votes
active
oldest
votes
active
oldest
votes
Dietrich Schmitz is a new contributor. Be nice, and check out our Code of Conduct.
draft saved
draft discarded
Dietrich Schmitz is a new contributor. Be nice, and check out our Code of Conduct.
Dietrich Schmitz is a new contributor. Be nice, and check out our Code of Conduct.
Dietrich Schmitz is a new contributor. Be nice, and check out our Code of Conduct.
Thanks for contributing an answer to Code Review Stack Exchange!
- 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.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Some of your past answers have not been well-received, and you're in danger of being blocked from answering.
Please pay close attention to the following guidance:
- 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%2fcodereview.stackexchange.com%2fquestions%2f211218%2fvba-strange-email-hangup%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
