VBA - Error Opening Excel Document When Rerunning Macro

Nov 21, 2012

I am basically using a combobox in word that opens an excel spreadsheet and pulls information about the people entered in the combobox. The information pulled from excel is then pasted into the original word document.

The problem that I am having is that the macro may be needed to run twice (ex. suppose the user forgot to include an individual in the first run) and on the second run the excel document cannot be opened and it gets stuck on the loop. The macro will only work again if the word document is closed and reopend. I suspect that the excel document is not completly closing on the first runthrough.

I've included my code below. The initialize combobox code is on the bottom. I

PHP Code:

Dim WordApp As Word.ApplicationDim xlApp As Excel.Application
'Dim xlWB As Excel.WorkbookPrivate Sub CommandButton1_Click()Bios 
= ActiveWorkbook.NameNewWBookName 
= ActiveWindow.CaptionSet WrdDoc 
= ActiveDocumentlastrow = Range("A1").End(xlDown).RowS


View 2 Replies


Excel 2010 :: Error In Shell During Opening PDF

Feb 25, 2014

I'm using excel 2010 and pdf creator to make a pdf (and open it automatically). It works with the following code:

[Code] .....

path and filename are previously defined objects.

I'm using pdfcreator because the code also has to be used with excel2003 on another pc. The problem is that I get an error (probably for trying to open the newly creating pdf-file).

Error 2417024894 (80070002) during execution. Method run of Object IWshSell 3 failed.

View 2 Replies View Related

Opening Word Document From VBA

Aug 25, 2009

I am trying to open a word document from within excel using

View 2 Replies View Related

Runtime Error 1004 When Opening Excel From Access Upon Second Execution

Jul 16, 2014

The following script runs fine the first time I click the command button on an Access form but after I close the Excel workbook and click the command button again to edit a new spreadsheet, I get the follow error message:

Run-time error '1004': Method "Columns' of object'_Global failed.

It fails here:


The script is being run from Access 2007 and is opening a spreadsheet in Excel 2007 (but using xls extension)

Private Sub IdahotoExcel_Click()
Dim dlg As FileDialog
Dim idahofile As String


View 5 Replies View Related

Shareable Document Opening As READ ONLY

Jan 17, 2013

I have a shared document that I want other team members to enter data only into. For some reason when they open the shared document it is showing as read only to them how to fix this? See below settings used

View 2 Replies View Related

Error Trap: Macro Opening Non Existing File

Oct 26, 2006

I have a user form with a TextBox (TextBox1), the user enters a filename and presses CommandButton1, this then opens the file. I have set an error trap so that if the file does not exist a MsgBox prompts the user to re-enter. So far so good, however if the error trap operates any further files entered are declared as non-existent even if I know they exist. I thought this would be quite easy but once again VBA bites me back!!

here is my code

Sub CommandButton1_Click()

stPath = ThisWorkbook.Path
stFilename = "Retention" & "" & TextBox1 & ".xls"
stFullname = stPath & "" & stFilename 'completes full path of for TextBox1

On Error Goto Errorhandler: 'go to this if file does not exist
Workbooks.Open stFullname
ActiveWorkbook.RunAutoMacros xlAutoOpen

View 6 Replies View Related

Hiding Headings/gridlines On Opening Of Document

Dec 1, 2009

Is there a way to hide the column headings/row headings and gridlines automatically when a workbook is opened without having the user go to the view tab and unchecking the appropriate boxes?

View 2 Replies View Related

Macro For Opening Series Of Spreadsheets And Copying The Data - 1004 Error

Aug 20, 2014

The macro (used to) go down the list of spreadsheets and copy certain data from them into this master workbook. Now I'm getting a "'C:Users310108841DesktopTestFolder' could not be found" error and don't know why.


The error appears to happen here:

[Code] ....

What's more infuriating is that this appears to happen at random. I have been trying all afternoon to get it to work, and had no luck. I have literally just run it now, and it works fine. I can't believe it just works at random.

View 2 Replies View Related

SendKeys :: Switch On Caps & Number Lock On Opening A Document

Jan 17, 2010

I want to switch on Caps & Number lock on opening an Excel document. I'm using the following code;

View 10 Replies View Related

Remove Macro From Backup Excel Document

Oct 28, 2013

I have this macro currently running on an original excel document

Private Sub Workbook_Open()Dim fname
fname = "C:ackupEconomics Tracker - " & Format(Now, "dd mmm yy hh mm AM/PM") & ".xlsm"
ThisWorkbook.SaveCopyAs Filename:=fname
End Sub

Which creates a backup of the document each time the document is opened; I was wondering, is it possible to remove that particular macro from the backup as opposed to saving the backup as .xlsx? I don't want to be able to open a backup and the backup makes a backup

That particular macro is running on the main workbook.

View 9 Replies View Related

Script That Will Turn Excel Document Into A Txt Document

Feb 17, 2009

I need a script that will turn a excel doc into a txt doc. Thats the easy part. The hard part (at least I think it is), is I need it to be in a certain format and I'll do my best to explain that fomat below.

View 9 Replies View Related

Show Custom Error Message If Opening Workbook Macro Code Fails

May 17, 2008

I cannot figure out how to get my error handler to work, or actually, not work. It seems to work fine when there is an error, but the code still gets read even when there was not an error. Basically, I am trying to open a file, which may or may not be there. When it is not there I want a message to pop up informing the user. However, when the file is there and it opens, the error handler still gives the message box. Any ideas what I am doing wrong?

Private Sub btnOK_Click()
Application. ScreenUpdating = False
Dim LCSfile As String
LCSfile = frmSelectFile.Listbox1.Value
On Error Goto ErrHandler
Workbooks.Open Filename:=sPath & sDate & "" & LCSfile & "QUANT.CSV"
MsgBox ("File is not quantitated. Please select another file.")
Application.ScreenUpdating = True

End Sub

View 2 Replies View Related

Macro To Copy Data Within Excel Into Tables In A Word Document

Jan 25, 2010

Currently I am going back and forth between an excel document and a word document cutting and pasting values from the excel spreadsheet into tables in word. The task is a regular occurance therefore I wish to create a Macro that can automate this procedure. Both the excel and word documents are fixed templates therefore once a Macro is created it can be applied to all future work of similar nature.

Each table in the word document contains 6 rows of values in a single column. The excel data is arranged in a table that is 6 rows by x number of columns (how ever many sets of values there are for the particular job) therefore x determines how many tables must exist in the word document. I move between the excel and word document cutting and pasting each column into each table. This is not so time consuming if x=10 however on occasion x=100+ and it does take time.

View 8 Replies View Related

Macro To Copy Data From Excel Worksheet To Microsoft Word Document

Jan 28, 2011

I have a macro set up in Excel that formats and deletes rows matching a citeria. Once the macro runs I then manually copy the data across into Word. I would like to automate this.

I would like the macro to copy over any cells containing data iinto a new word document. I also have standard text that I would like to include at the beginning and end of the word document. With the excel data being placed in the centre.

I have searched the web and tried a couple of macros with no luck. All the macros state "' requires a reference to the Word Object library: ' in the VBE select Tools, References and check the Microsoft Word X.X object library"

I am unsure how to reference this - but I have checked and found that the object library ticked is Microsoft Word 11.0 Object Library.

View 1 Replies View Related

Macro To Generate Word Document From Excel With Built In Header And Footer Template

Jan 23, 2014

All I want is to generate a word document with built in word header and footer (header and footer style name is "alphabet") based on the values which i mention in excel(path,word file name and header content.

View 1 Replies View Related

Excel 2013 :: Format Date / Time And Macro To Run On Opening Orkbook

Feb 2, 2013

I need to place a date and time in a cell 14/9/2013 6:00 PM

Tried several formats under custom format without success.

Also need addition to following macro to enable it to start on opening of workbook


Sub Macro1()
PauseTime = 1 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.


View 8 Replies View Related

Excel 2010 :: Macro For Replacing Text In HTM Document - Text To Change Different Every Time

Mar 18, 2014

I am my excel worksheet (excel 2010) I have one cell that changes every day (number). I want this number to open my htm document and replace the same number in a string in the htm and save/close this.

An example:
My htm document is located at C:/ and named XX.htm

The number I want from excel is in cell A1 in sheet1, and the worksheet is located in D:/ named yy.xlsx

And the text(number) I want to replace is in the following string in the htm document, in this string it is 72, next day it can be 30:


View 8 Replies View Related

Excel 2008 :: Cannot Open Structure Protected Excel Document

Mar 25, 2013

******** type=text/javascript>*********>******** type=text/javascript src="http://pagead2.googlesyndication.com/pagead/show_ads.js">*********>

I tried locking an excel document and i ticked a box that said protect structure, and then entered my password and now I cannot open the document. It is a white square on my desktop now with no options to do anything, it cannot even be attached to an email or deleted. This was on excel 2008 on a macbook.

View 1 Replies View Related

Opening Word & Count Word Instances In A Word Document

May 26, 2006

I have an excel program that is supposed to count word instances in a word document. I can't seem to find the right declaration for a word document.
For example to declare a workbook in excel its

Dim wb As Work Book

I've tried

Dim doc As Word.Document
Dim doc As Word.Application

as shown in some of the forum posts, but an error user-type not defined keeps displaying.

View 2 Replies View Related

DLL Error When Opening VB Editor

Jun 18, 2014

When I open my excel file and go to the VBA editor there is a pop up telling me that there is a dll error. So, I can't access none of my code or run any of them.

In the tools menu and references it says : "MISSING : Microsoft PowerPoint 14.0 Object Library". When I unchech this box and close the menu, it checks itself back.

Edit : I have Microsoft PowerPoint 12.0 Object Library also in my references list.

View 2 Replies View Related

MS System Error Opening Form

Mar 16, 2012

Sub OpenCalendarForm()
frmCalendar.Show vbModeless

End Sub

When I run this I get this halt "System error&H80070057 (-2147024809). The parameter is incorrect. I havn't been doing VBA in a while as I am retired now but I have used this particular statement many times in the past and never had this error before. I have made sure there no typos. I open another workbook which has forms opening and copy pasted the the routine into my other workbook but I get the same error.

View 2 Replies View Related

VBA Error Handling - Opening Files

Jun 25, 2014

I am working on a worksheet with quite a few advisors who will be using the sheet, because of this reason I am trying to cover my back with as much error handling with my VBA script as possible. Where I am struggling is the following line:

Set cb = Workbooks.Open("wilm-dchome"UserName"DesktopCurrent projectPipeline Grouped.xlsm")

I want to have an error handler that says if this file cannot be found use the following line of code instead:

Set cb = Workbooks.Open(Application.GetOpenFilename())

It may even be just a simple if statement instead but I cant seem to find the answer.

View 2 Replies View Related

VB Error With Opening/closing Workbook

Jul 6, 2006

I do not understand why my code returns a Run Time Error"9" Subscript out of range. With the following code, I opened a workbook and then wish to close that same workbook without saving. Eventually I will be pulling information from the workbook but for now I just want it to open and then close right away.

Private Sub cb_NewDate_Change()
ListIndex = cb_NewDate.ListIndex

If ListIndex = 0 Then

Application. ScreenUpdating = False

Workbooks.Open Filename:="I:JoeNetwork Conversion FactorsNetworkConversionFactors_Ver_2_0_0.xls"
Application.Workbooks("I:JoeNetwork Conversion FactorsNetworkConversionFactors_Ver_2_0_0.xls").Close False
End Sub

View 3 Replies View Related

Runtime Error On Opening Workbook

Sep 15, 2006

I am getting a runtime error 32809, Application-defined or Object-defined error when I try to open my workbook. I remember someone posting code to set the VBA References when the Workbook is opened and I think this is what I need, because the file will run on Excel 2000 and not on Excel 2003. I know the References are different, but I don't know how to change them.

View 9 Replies View Related

UDF Returns #Value! Error After Opening Another Workbook

Dec 18, 2007

Having a problem with a simple udf to calculate values across multiple sheets using the calling cell as a reference point. It works great until you open another workbook and then switch back. At that point all cells calling this udf return a #value! error. If I type anywhere on the sheet all of the values will recalculate but this is less than ideal for the end users here. below is example of concept

Function TestMe()
Application.Volatile (True)
Dim strCallAddress As String
Dim intSubTotal As Integer
strCallAddress = Application.Caller.Address
intSubTotal = Worksheets(2).Range(strCallAddress).Value
intSubTotal = intSubTotal + Worksheets(3).Range(strCallAddress).Value
TestMe = intSubtotal
End Function

View 4 Replies View Related

Error Opening File......different Format Than What Specified By Extension

May 15, 2009

Apparently my program quits after i try to open an excel file. If you open the file manually you get an error upon opening the file...something like this:

"File you are tyring to open is in a different format than specified by the file extension".

The problem is i am using an excel macro using VBA and once the file is opened the VBA execution quits.

The excel file turns out to be an xml file which excel can open the file and have the VBA continue running if i RENAME the file with an "xlsx" extension. The problem is that i cant ask the user to rename the file.........how do i get VBA to open the file without an issue?

View 13 Replies View Related

Runtime Error When Opening Non-Existent Workbook

Sep 13, 2006

I have a list of workbooks on a sheet that i am trying to open with vba one by one. If a workbook in my list does not exist or was deleted then excel displays a runtime error. Is there a way to bypass this error and have the code skip the non existant workbook and open the next one?

View 8 Replies View Related

SUMPRODUCT Formula Returns #VALUE! Error Opening Workbook

Sep 26, 2006

whats happening to my workbook. On a worksheet called Data, i'm pulling in a lot og data from a database. Then on another worksheet i'm looking for certain things on the data sheet and counting how many there are.

This all goes along find until i close the workbook, and then re-open.I click the automatically update button that appearsand once it finishs updating all my values are replaced with #Value.

This is the formula i'm using.

= SUMPRODUCT(--(Data!$X$1:$X$49871="4")+(Data!$X$1:$X$49871=4),--(Data!$M$1:$M$49873="FTS-Unix"))

View 6 Replies View Related

Excel Sort Macro Error 400

Oct 5, 2007

I have a macro that should be sorting the last column of data, but it gives me an error code of "400". No explanation of the error, just the number.
I have a feeling it is because I have formulas in place to pull the data from other sources, and the associated "#Value!" error is whited out by using the conditional formatting.
Is there a way to have this macro only look at numeric values?

--------BEGIN VBA--------
Sub SortLastColumn()
Dim myRange As Range, myCol As Integer, sortCol As String

Set myRange = ActiveCell.CurrentRegion
myCol = myRange.Columns.Count
sortCol = myRange.Item(1, myCol).Address

Selection.Sort Key1:=Range(sortCol), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
IgnoreControlCharacters:=True, IgnoreDiacritics:=True

End Sub

View 9 Replies View Related

Excel - Add Document Properties To A Cell Without VBA

Feb 13, 2013

I want to add these document properties I created to a cell ("A1" or any of the cells) without doing any VBA programming. Is this achievable in any case?


View 2 Replies View Related

Copyrights 2005-15 www.BigResource.com, All rights reserved