I am trying to attach a speadsheet to an inquiry about another problem. I used to be able to do this. No known changes to my system in between.
Currently get error:
"Your submission could not be processed because a security token was missing."
No one here knows what to do. Is my problem local or at the website? What should I try?
I'm using VBA to upload the open workbook to app.box URL which is working great! Since I'm pretty new to VBA, I can't figure out how to get Excel to display the sucess/failed message from the server to the user. I used the VBA POST upload module from this awesome tutorial, but I can't figure out how to return the message to the user. I did figure out that on the website there is an "id="after_upload_message", not sure if that works. My code is below.
[Code] ......
I am trying to attach an Excel file to a post. I found the following in FAQ: "To attach a file to a new post, simply click the [Browse] button at the bottom of the post composition page, and locate the file that you want to attach from your local hard drive" But I cannot find the [Browse] button. I should have said "to attach a file" not "to attach a post" in the header.
View 2 Replies View RelatedI have found no option here to attache file (excel, or word if any). How to attach file in to create a new thread ?
View 1 Replies View Relatedsend automaticaly, or it waits until user will push button send or brows to attach the file.
In all given samples it says: “If you use Microsoft Outlook”. I know that any office has Outlook. Is it impossible to make Outlook usable with macro and then send an e-mail?
I have 3 routines to (1) create an empty zip folder, (2) place a file into the zip folder and (3) create a mail item and attach the zip folder to it.
The zip folder is successfully created. The mail item is also created and displayed, yet the zip file does not get attached.
Option Explicit
Dim FileNameZip
Sub NewZipFile(strFilePath As String)
If Len(Dir(strFilePath)) > 0 Then Kill strFilePath
Open strFilePath For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
End Sub
Sub MakeZipFile(strPath As String)
Dim strFileName As String
Dim objApp As Object
With Application
.EnableCancelKey = xlDisabled
.ScreenUpdating = False.......................
I would like to attach a pdf (or word) file inside an Excel sheet so that it is seen as a pdf icon or word icon when viewing the sheet. Any of you who knows if this is possible and how to do it?
View 2 Replies View RelatedI have an Excel file that has a persons name in column A, company name in column B, email address in column C and a hyperlink to a specific file to be sent with the email in column D.
I have the code to send the email and it works fine.
I've searched the net for mail merge and hyperlinks and have only become confused.
Here is what I want to do, attach the mail merge created file to the email, then the file associated with the hyperlink, I want to attach the actual file from the hyperlink into the email.
I can't open a file anymore. On opening an exclamation mark message appears telling me the file contains "Too many different cell formats". After clicking "Ok" Excel doesn't continue the opening proces. However I need the info in the file. how to retreive the info in the file?
View 2 Replies View RelatedI have about 20 files that all have separate passwords. When I enter the password for six of the files, I receive the "Unable to Read File" error message.
View 5 Replies View RelatedI have developed a product that's a bunch of Excel spreadsheets strung together. Real estate and mortgage professionals use the tools to counsel home buyers. We include a pdf converter in case recipients of emailed file attachments don't have Excel.
We provide an 'Export' procedure that calls a custom dll that uses the outgoing mail server that the user [must] setup or our web's mail server as a default. The action attaches the Excel or the PDF file and sends in the background. We use an Excel form for user to write the message and the process saves a copy of the message sent and the file send in an Archives folder.
This procedure is not very user friendly, as it does not offer the user's address book to select a recipient, does not put the message in the user's email client Sent folder...Plus the Archives folder could become quite large...plus it involves a user setup that creates alot of support calls.
But actually the most critical shortcoming has become that ISPs (Comcast and ATT so far) are blocking the use of custom email clients!
Recently my son showed me in QuickBooks their attach file-to-email process. It simply opens the user's default email client with the file attached. I need an app that does that! And it needs to be distributable.
I am trying to create a script for a manually morning process that I need to complete that entials downloading a number of .PDF files and sending them out to a distribution list. I am unable to automate that actual saving of the files onto the network drive, but I believe I can automate the process of attaching them to the email. I have run across some problems so far though, this is what I have been able to come up with. After doing a bit of research it seems as though using cmd would be the best way to locate and attach the file but I am still unable to get it to run properly:
Code:
Sub AttachMultiple()
With CreateObject("Outlook.Application").CreateItem(0)
.To = "test@gmail.com"
.Subject = "Test"
.Attachments.Add Split(CreateObject("wscript.shell").exec("cmd /c Dir 'G:Client ReportingMGIDaily
ReportsAGFAJune 2013*.pdf' /b /o-d").stdout.readall, vbCrLf)(0)
.Send
End With
End Sub
Here is an example of a folder I will be trying to pull the most recent saved PDF from, there are about 10 similar folders:
I feel like I am relatively close to completely this, my cmd syntax may just be a little off.
I have written a macro but unable to make it work. The macro works but not the way I would like it to.
The macro has to save an excel sheet to a separate folder as a pdf format, a message box should pop up confirming the pdf file and then attach the same saved pdf file to an email.
Now the macro saves the pdf file where I need it to be saved, the msg box pop up and then the pdf file opens up on top of the msg box. If I close the pdf file the msg box which was hidden under the file is now shown. When I click "OK" it goes straight to outlook with the email addresses attached but the saved pdf file is not attached.
I've attached the script.
Sub Macro1()
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:UserReportsPDF Reports" & Range("Q3").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
[Code] ........
I am using a macro to e-mail any work sheet with an address in A1. I would also like to attach a file that will be listed in cell E1 of that worksheet. The file is different for each work sheet that is being sent but will be listed in the same cell of each work sheet.
This is the code I am using (i got it from ron de bruin) when I use the .Attachments.Add (C:est1.txt) it works but i can not seem to figure out how to get it to read the file address in the E1 cell. The code i am trying to use is .Attachments.Add = ws.Range("E1").value.
I have finally come up with a macro and would like to install it to around 10 people's "Personal Workbook" in my department. Let me explain a bit further...
We use web-based software which has an "Export to Excel" option which we all use. The resulting data populates into a spreadsheet automatically.
I would like the user to be able to click on Tools/Macro/Run Macro and then run that particular macro. I assume that this macro should be in the "Personal Workbook" so that the macro will be visible no matter what worksheet they may have open?
Can this be done automatically/with a macro or must this be manually done?
I"m using Excel 2003.
I am looking for a more efficient way to write a macro (a sample from the macro is below). This is just the first part of the macro. I need to repeat these same steps (seen for row 5 below) for rows 5 to 50. My script worked until I hit row 35 and then I got the "compile error.." message. There must be a way to use "loop" to write this more efficiently, no?
View 14 Replies View RelatedFor some reason my form won't open when the workbook is opened. I get an error message "run time error '424' object required" (which happens when I have Form1.show in the BOTH workbook_open event and the userform_initialize event (oops)). When I removed form1.show from the userform_initialize I don't get an error but I also get no form. I recall having this issue before but I can't recall how to fix it.
Can I call the userform_initialize event from the workbook open event to get around this successfully and properly?
I do hit the SCE (Shift-CTRL-Enter) keys. The formula does work in one workbook, but not the other. The only difference between the two workbooks is this formula has a larger range.
New Formula- doesn't work (ERROR- #DIV/0!)
{=AVERAGE(IF(Sheet1!A3:A1094="MONDAY",Sheet1!E3:E1094))}
Old Formula- works
{=AVERAGE(IF(B6:B451="MONDAY",E6:E451))}
When I input the formula : =(G9+G16+G23+G30+G37+G44+G51+G58+G65+G72+G79+G86+G93+G100+G107+G114+G121)/17
I get the error message #VALUE!
I have one line of code that I need an error message for:
View 2 Replies View RelatedI get spreadsheets sent to me with hours and minutes in decimal format. Frequently a quarter of an hour or three quarters of an hour are posted as 0.15 or 0.45 instead of 0.25 and 0.75. Other odd fractions can also appear.
I want an error message if the value when divisible by 0.25 is not a whole number.
I am trying to run the macro and I get this error:
Compile Error! Sub or Function not defined
for the following
RFQnum = VLookup("RFQ Number", CPARSdata, 2, False) 'RFQ# should be same for each supplier
CPARSdata is a named ranged with 25 columns and 338 rows
I would like to get some information when a vba code is in error.
Can we create a sub that we can refer to when a vba code is in error. Something as:
On Error goto "name of the sub"
In that sub, I would like to write in sheet1 , cell a1 the name of the sub in which the code is in error.
In cell a2, i would like to write the line in error in the VBA code.
finaly i would like to show a msgbox ("Contact your admin")
and then close the file
I am getting the error message
"Compile Error: End If without block If" for the code below :
ErrorHandlerRoutine:
If MyInteger = 1 Then
MsgBox "Data does not exist in the CO2 data set"
End If
Resume 1
If MyInteger = 2 Then
MsgBox "Data does not exist in the Water data set"
End If
Resume 2
If MyInteger = 3 Then GoTo 3
MsgBox "Data does not exist in the Waste data set"
End If
Resume 3
I need an error message to pop up if 3 cells contain the same data
The range of these cells would be G19 to G49
Ideally the error message would say "Rules Broken"
Also if possible could the same message be shown if the value of cell J52 exceeds 50,000000
I wanted to make a pop up alert message appear whenever the formula in a cell gives a particular output.
Before posting this i tried looking for similar posts before, but the ones found do not solve my problem. There it asks me to write the following code in VBA,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As String
MyRange = "A1"
If Me.Range(MyRange).Value = "Have Meeting" Then
MsgBox "Have Meeting"
End If
End Sub
But my doing so, I can not use any formula in the cell A1 or any other cell i give reference as MyRange. I will always have to physically type "Have Meeting" or any other word assigned in the above.
I am writing some code to do a comparison between two cells X2 or AB2 with an X which checks to:
1. make sure one of the two are filled, or
2. both are not filled.
Below is an extract of the spreadsheet I am working on. I need to check to make sure one of the boxes is checked. If both are empty or both filled with an ("X"), I want a message box to tell me to correct the error and stop the macro from continuing. If only one is marked with an ("X"), I want the macro to continue but don't know how.
RSTUVWXYZAAAB
2IN PROGRESS: COMPLETED:
Using Excel 2003
I am receiving an #Value! error message from my sumproduct formula:
=SUMPRODUCT((Data!$A$2:$A$47=G$2)*(Data!$B$2:$B$47=G$4)*(Data!$A$1:$N$1=$B21)*(Data!$A$2:$N$47))
As follows:
Data!$A$2:$A$47 is a date
G$2 is a date within the context
Data!$B$2:$B$47 is a unit number
G$4 is a unit number within the context
Data!$A$1:$N$1 are descriptive titles
$B21 is a decriptive string within the same context (copy paste)
Data!$A$2:$N$47 are to be summed is all criteria are met.
I have a vba code that I wrote out to search for a file and update data on a spreadsheet with the new file... however I've come to a point where I'm not sure of what code to use. If I search for a file that is not there I get a runtime error and of course it ask me to end or debug. What I would like for it to do instead is search for the file and if it is not there... display a message box stating that the file searched for is not found and automatically closes the workbook after OK is pressed.
Here is the code for those who may need it....
I've got the below code which I use to log users who opens my spreadsheet. It's a Event so runs when the spreadsheet is open with macro enabled. The spreadsheet is on a shared drive which has the prefix "K". Most users it works find but one user gets a error Message "Path or Drive" error. I got around it by adding "on error" but how do you overcome issues with drive prefixs and the drive address e.g "K" vs "\CRD2000"
Private Sub Workbook_Open()
Open ThisWorkbook.Path & "usage.log" For Append As #1
Print #1, Application.UserName, Now
Close #1
End Sub