On Error not trapping internet connection problem

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Suppress Linked View Unique Record Popup Hi Martin, I've escalated your question to our support team for assistance and will post their response as soon as possible. thanks, -brenda (ISV Buddy Team) Tag: On Error not trapping internet connection problem
  - 2
    - Setting the Data Format for a Column via VBA Here's the line of code I used after compiling my data into the sheet to change the general format to show both date and time: Sheet1.Range("E2", "E1000").NumberFormat = "m/d/yyyy hh:mm" Tag: On Error not trapping internet connection problem
  - 3
    - Compatibility Issue Excel 2000 and Excel 2003 Is the client running the code from within the zip file Or from his email program ThisWorkbook.Path will fail in these cases for sure. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: On Error not trapping internet connection problem
  - 4
    - IsError function from VBA6.3 to v6.0 Hi, We need more information about the variables you are using particularly what information they contain. So, what is vRange Tag: On Error not trapping internet connection problem
  - 5
    - Once copied, can we export as a GIF file? I assume you're talking about simply taking a screenshot of the viewable range of the MS Excel document for insertion into a MS Word document. Do you need to do this programatically If not, just hit PrtScr on your keyboard, paste it into MS Paint, save it, and insert it into the Word document. If you need to do this in a program, you've got two obstacles to overcome as I see it: 1.) VBA doesn't provide a "native" method for taking screenshots (as far as I know). I believe you'll need to access the API to do this. If this does turn out to be the case, I can help you out with code. 2.) VBA has no support for converting bitmap images (which is the format your screenshot would be in) into .JPG or .GIF files. You'd need to use external libraries. If you can provide a bit more information on what you need to do and why, I can give you much more specific advice on how to solve the problem. Tag: On Error not trapping internet connection problem
  - 6
    - How to activate a listbox selection using Excel VBA? Hi, The simplest way is to use a multi column listbox and store the cells reference in one of the columns along with a description of the type of error. You can then activate the cell using the click event of the list box. If you need more help with the code it would be helpful if you could post what you already have. Tag: On Error not trapping internet connection problem
  - 7
    - Edittin Macors in EXCEL Hi, This will paste the range to the right of the current range. So A1:E5 will be move to F1:J5 Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/2/2007 by Administrator ' Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Selection.End(xlUp).Select Selection.End(xlToRight).Select ' it should move one column towards right before pasting Selection.Offset(0, 1).Select ActiveSheet.Paste End Sub Tag: On Error not trapping internet connection problem
  - 8
    - TexBox.InputMask error message Hi all, in Access 2000 i have a form with a textbox that i set the InputMask propertie. When i "run" the form and the value i put in the text box aren't "approprite", the Access pop's up a messagebox with: "The value you entered isn't appropriate for the input mask ... , specified for tis field". Please, can someone tell me how can I capture this message or change it in Access VBA or Access option TIA Joao Rodrigues Tag: On Error not trapping internet connection problem
  - 9
    - Refining MS Access data and saving to csv file using VBA code (Answered) This Q has been answered here: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=2185744&SiteID=1&mode=1 Tag: On Error not trapping internet connection problem
  - 10
    - Email Form from MS Word Please check if the following link leads to a solution http://vbadud .blogspot.com/2007/ 04/vba- email -automation-vba-mail.html Cheers shasur Tag: On Error not trapping internet connection problem
  - 11
    - Excel 2003 CommandBarButton Can you not copy the above code into an Open event handler for the workbook Private Sub Workbook_Open() Dim cb As CommandBar Dim b As CommandBarButton Set cb = Application.CommandBars("Standard") Set b = cb.Controls.Add(msoControlButton, , , , True) b.Caption = "Hello" b.FaceId = 234 b.Style = msoButtonIconAndCaption b.OnAction = "Test" End Sub Tag: On Error not trapping internet connection problem
  - 12
    - User-defined function appears to be preventing Worksheet_Change trigger? Hi, If any of the routines you Call change the worksheet the worksheet change event will be raised again and could cause problems. Maybe you could disable events while do the other routines, turning back on when complete. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 3 Then application.EnableEvents False Call UpdateLink("E1", "Project View") Call GetDates Call ResetDate("Project View", "Weighting", 56, 5) Call ResizeFont application.EnableEvents true End If End Sub Tag: On Error not trapping internet connection problem
  - 13
    - Conditional Formatting Problem/Bug? I don't think you're doing anything wrong. I was easily able to replicate the same (on Excel 2000, so assuming you're using something more recent this is not a new phenomenon). The VBA code assigns the conditional format formula and formats, but it doesn't seem to actually apply them until you interactively apply the conditional format. It appears to be related to the array formula in the conditional format. If you replace it with a non-array formula then it works fine. For example, the following non-array equivalent to your formula works OK: Formula1:="=AND(A1<>"""",COUNTIF($A$1 : $A$5,A1)>1)" That doesn't solve the underlying problem of how to apply array formulae in conditional formatting via VBA. I tried a few things to try to make it refresh or redraw, without success. Even applying a second conditional format applies the second format but doesn't "activate" the first. I think it's likely that this is a bug. Tag: On Error not trapping internet connection problem
  - 14
    - Help needed: Retrieve tables in word and copy them to Excel Hi! See this: Code Block Sub findTable() Dim tTable As Table Dim ExcelApp As Excel.Application Dim ExcelWB As Excel.Workbook Set ExcelApp = CreateObject("Excel.Application") Set ExcelWB = ExcelApp.Workbooks.Open("c:\test.xls") 'ExcelApp.Visible = True For Each tTable In ActiveDocument.Tables a = a + 1 With ExcelWB If a > .Worksheets.Count Then .Worksheets.Add After:=.Worksheets(a - 1) tTable.Range.Copy .Worksheets(a).Paste Destination:=.Worksheets(a).Range("a1") End With Next MsgBox prompt:="Search Complete.", buttons:=vbInformation ExcelApp.Quit Set ExcelWB = Nothing Set ExcelApp = Nothing End Sub Don't forget to link up Excel as reference and use Application.ScreenUpdating Tag: On Error not trapping internet connection problem
  - 15
    - Compatibility Issue Excel 2000 and Excel 2003 Is the client running the code from within the zip file Or from his email program ThisWorkbook.Path will fail in these cases for sure. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: On Error not trapping internet connection problem
  - 16
    - WSS 3.0 "This stock feature has been retired." Hey, I came across the same error today. It's only hitting one of our subsites, which (haha) happens to be our IT page. Did you figure anything out I thought it might it have to do with the navigation tree. Tag: On Error not trapping internet connection problem
- Next
  - 1
    - Excel: Can a UDF tell what cell it was invoked from? Hi, This will give you information about the cell. Public Function udfMyFunc() Debug.Print "Cell address", Application.Caller.Address Debug.Print "Worksheet", Application.Caller.Parent.Name Debug.Print "Workbook", Application.Caller.Parent.Parent.Name End Function Tag: On Error not trapping internet connection problem
  - 2
    - running a sub from another sub Hi I asked the sme question in this forum and got a reply that worked see below link. http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1618380&SiteID=1 Regards ADG Tag: On Error not trapping internet connection problem
  - 3
    - Problem with PasteSpecial Hello Everybody, I am facing one strange problem in one of my VBA applications. The application uses the normal "Paste" to paste one copied signature file. I would like to use the "PasteSpecial" feature instead, so that only the text of the signature file gets inserted and not its background shade. My code snippet: Code Snippet With Selection .Range.PasteSpecial datatype:=wdPasteEnhancedMetafile End With The change works fine with a certain defect. Using normal "Paste", if 2 signature files are pasted one after the other, then the 2nd signature file comes in front of the 1st, which is correct. But using "Paste Special", I find that the 2nd signature file gets pasted on top of the 1st! This is not something that I want. When I checked the layouts of the pasted pictures of each method, I found the following: PasteSpecial -> Layout is " In Front of Text " Paste -> Layout is " In Line with Text " I am not sure if this could be the reason for this strange behavior. If so, could anyone of you experts kindly suggest how to change the layout settings in VBA to make PasteSpecial layout the same as Paste. Thanks in advance. cheers, SanK Tag: On Error not trapping internet connection problem
  - 4
    - Passing Function As Argument Hi, Is this the sort of thing you mean The result of the 1st function is passed into the 2nd function. Sub Test() MsgBox myFuncPower(myFunc10(3), 2) MsgBox myFuncPower(myFunc3(3), 1 / 2) End Sub Function myFunc10(Value) As Variant myFunc10 = Value * 10 End Function Function myFunc3(Value) As Variant myFunc3 = Value * 3 End Function Function myFuncPower(Value, Npower) As Double myFuncPower = Value ^ Npower End Function Tag: On Error not trapping internet connection problem
  - 5
    - Highlight Row depending on cell - Excel VBA - Try this Sub Hilite() Dim lngRow As Long Application.ScreenUpdating = False lngRow = Range("D1").End(xlDown).Row Do While lngRow > 0 If Cells(lngRow, 4).Value = 0 Then Rows(lngRow).Interior.ColorIndex = 3 ' red End If lngRow = lngRow - 1 Loop Application.ScreenUpdating = True End Sub Tag: On Error not trapping internet connection problem
  - 6
    - Help Hey, Try this event in the worksheet code module. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then _ Worksheets.Add After:=Sheets(Sheets.Count) End Sub Best Regards Cathrine Tag: On Error not trapping internet connection problem
  - 7
    - Run Time Error 9 when Calling a Userform Hi, Error 9 is a 'Subscript out of range'. so for example referencing a worksheet that does not exit will raise that error. MsgBox Worksheets("Sheet99").Name or trying to access an element of an array beyond the bounds of the array. Dim vArray(3) As Variant vArray(4) = 1 But without seeing any of your code it's pretty hard to guess exactly whats wrong. Tag: On Error not trapping internet connection problem
  - 8
    - Visible Property For Pivottable Hi all, The " Pivot Table" is generated from an OLAP cube. One of the "Pivot Table" fields is "Customers," and its subfield hierarchy is as follows: Category 1, Category 2 and Category 3. In addition, when I type an equal sign and click a cell in the "Pivot Table," I can look at the following formula : =GETPIVOTDATA("[Measures].[Sales]",'Pivot Table'!$A$11,"Field1","Item1","Field2","Item2", "[Customers].[Customers]" , "[Customers].[Customers].&[GE]" ,"Field4","Item4") The Category 1 actually has a bunch of customer names, so I'm trying to use Visible Property to look at just the customer that is selected by VLOOKUP in the worksheet "P&L." First, I tried to execute the macro by typing actual customer name, "GE" below, but I came across a message: Unable to set the Visible property of the PivotItem class. Second, I want to replace the actual customer name ("GE") by a cell reference in "P&L," which has VLOOKUP function to generate customer name. Anyone to have solution Thank you in advance. sonofwind Application. ScreenUpdating = False Sheets("Pivot Table").Visible = True Sheets("P&L").Select Sheets("Pivot Table").Select Range("B1").Select ActiveCell.FormulaR1C1 = "a" Range("B1").Select ActiveCell.FormulaR1C1 = "a" Range("B1").Select Selection.ClearContents Range("B10").Select For Each PivItem In ActiveSheet.PivotTables("PivotTable1"). _ PivotFields("[Customers].[Customers].[Category 1]").PivotItems PivItem.Visible = True Next PivItem For Each PivItem In ActiveSheet.PivotTables("PivotTable1"). _ PivotFields("[Customers].[Customers].[Category 1]").PivotItems If PivItem.Name <> "GE" Then PivItem.Visible = False Next PivItem Sheets("Pivot Table").Visible = False Sheets("P&L").Select Range("A1").Select Selection.ClearContents Range("A1").Select Tag: On Error not trapping internet connection problem
  - 9
    - Access Data Project, form bound to Sproc, need to update, etc It's been a week now, with no response to your post. I lurk on this forum a fair bit, and it seems that sql and Access queries tend to go unanswered here. I suggest you repost in the transact-sql forum (link below) - certainly there will be more people who can help with the sql and stored procedures side of things. If it is a VBA solution you're seeking, then I suggest that you mention in your post that you tried here first and no-one could help - then they might be a bit more forgiving of a slightly off-topic post. http://forums.microsoft.com/MSDN/ShowForum.aspx ForumID=85&SiteID=1 Tag: On Error not trapping internet connection problem
  - 10
    - Need info on Hits vs Cad ID's Hi Roberto, The CAB Ids don't represent anything in particular. They're just unique identifiers assigned to the file. There's also little relation between the number of CABs and hits. Hits will be recorded as long as the Event is still occurring on people's machines. But because of disk space limitations, only a limited number (10 or so) are generally collected for each Event. This is usually a sufficient number of CABs to diagnose a problem. -Saar Picker Tag: On Error not trapping internet connection problem
  - 11
    - Answer Error Report processing delay Hi Brian, You have done the right things (symbols and source), and it looks like you are all set. Here are the answers you are looking for... 1. Does an application hang also show up in WER Application Hangs from Windows Vista will show up, but not from down-level operating systems. The reason we don't include the older hang events is largely due to the way the WER client grouped hang problems... by process name. This dumped too many failure types into a single event ID and became impossible to manage. This issue also made it problematic to set a response since you could only set a singular response for the event although there may have been many issues in that event. Windows Vista does a better job of uniquely identifying hang events, and they are actionable to you. 2. What is the turnaround from when the user clicks Send to when the event appears in WER Do you do a batch process every day Or less often It depends on how we receive the report, and the data we are working with. If the report is the first one seen by our servers, then it gets logged into our SQL DB right away, but the Cab File is processed in batch (if a cab file was requested by the server; I'll explain that more later). If it is not the first report we have seen, then we count the hit to the event path URL in batch. With that said, you also should know that there are many different event types (Crash32, Crash64, Managed Code Failures, Mobile OS events, etc.). Each event type gets processed in their own way and the batch may complete at different times based on volumes per day of that type of event from around the world. It is possible that Crash32 events from yesterday will be visible today but the Hung Application events from yesterday are still being processed. This happens often, and sometimes there can be a 3-5 day lag between the report and the finished process. We constantly work to improve the processing times. 3. How does WER decide to only register a few details about the event, or to get a full minidump My crash only has a few details, and reports that it has requested a CAB The Servers decide (ultimately) what gets sent across the wire to Microsoft. We don't collect every cab file, and we don't collect cabs on the first report in most cases. I feel that in your case, we haven't finished processing the reported cabs so the service is telling you that we will be collecting cabs for you. There are some changes (they were a long time in the works) we are making to Cab download to make it easy for you to identify if cabs are available and make it easier to download them from the service. You should see these changes soon (few months). Okay, I said I would explain more about cabs being requested by the server so here it is. When files are mapped in the WER service, we automatically set up collection rules for those files. Those rules request cabs for events related to the mapped files. This works out nicely for new events, but for old existing events there are explicit 'no collect' rules in place. We periodically prune these existing rules based on the new registrations but the work is not trivial so we do not do this all the time. This is why you can sometimes see events that say there are no cabs for the files you mapped. We are working on a process that will automatically mark mapped events without cabs to collect more based on some triggers, but we are still working out the rules so I don't have anything concrete to share with you on this right now. I envision a threshold trigger based on growth and volume; If the event does not have cabs but the event is hitting the growth threshold defined, then we will mark it to proactively request cabs. Our cab space is not infinite, and we are required to purge cab data periodically (for many reasons, not just space) so we only keep about 6 months work of cabs holistically. After that it's a FIFO process. That means that we could have had some cab files for you to download last week but they were old and now they are purged and we need to collect more. This works out since events that need to be fixed because they are a current problem will always yield more cabs in a few days on request. I hope this helps you Brian! Thanks for using the service! Kind Regards, -Jason Tag: On Error not trapping internet connection problem
  - 12
    - subscript out of range Hi, If i is currently 1 then are the other indexes correct What's in the variable bookmonth Is the sheetname really " by associate". Perhaps there is a extra space somewhere. Tag: On Error not trapping internet connection problem
  - 13
    - My vista doesnt contain wer.dll and werapi.h The WER DLLs are in the Windows system directory, and as far as I can tell, they are not specific to any particular version of Vista. The werapi.h header file is part of the Windows SDK, which you'll have to download and install separately (on development systems only, of course). Hope this helps, Claus http://www.clausbrod.de/Blog Tag: On Error not trapping internet connection problem
  - 14
    - How can I use a variable in formulaR1C1? Hi, Try, Cells(j, lastcolumnCAGR + 2).FormulaR1C1 = "=RC[-1]^(1/" & k & ")-1" Tag: On Error not trapping internet connection problem
  - 15
    - Is there a today() function in VBA? You can use "MyDate = Date()" for that. (^_^ ) If you want to the current time, use "MyTime = Time()" Tag: On Error not trapping internet connection problem
  - 16
    - excel 2003 macros dont work in 2007 I'm a little out of my league here (still using Excel 2003), but I'm guessing the reference to missing library probably means one or more .dll files is missing or has changed name between the versions of Office (if the error actually tells you which library is missing it would help if you posted that). I've had similar errors when using ActiveX controls - the libraries (dll) that contain the controls vary between PCs. The first thing I suggest you try is to open the VBA editor and activate the module contain the problem macro(s). Then open the references list (in VBA for Excel 2003 this would be Tools - References ). You'll see a list of all the VBA libraries available on the PC, and at the top will be some with checked tick boxes showing that they've been made available for that VBA project. If you click on one (the name, not the check box), at the bottom of the dialogue box it will show which dll or exe file the library is sourced from. I'm guessing that you'll see at least one which is pointing to an OFFICE11 folder. If so, scroll down the list until you see a similar name with a different office version (eg if you had " Microsoft Office 11.0 Object Library " checked, look to see if there's a " Microsoft Office 12.0 Object Library " - or a higher number). If there is, check the box beside it. Then increase its priority until it's higher in the list than the original one (this is easiest if you close and re-open the References dialogue after checking the box, because that will bring it up near the top of the list). If it lets you, uncheck the original library (although I vaguely recall it being greyed out when I did this). Another way you can get some idea of what libraries are in use from the VBA "Object Browser" (In the Excel 2003 VBA editor F2 activates it, or else View - Object Browser ). There's a dropdown containing the active libraries, and when you choose one, at the bottom of the Object Browser window it shows what dll is being used. If you still have access to a PC using Excel 2003 (where the macros work), try this to see if you can determine what dll files are being used by the macro in question. If my first suggestion doesn't work, though, that will only tell you what the problem is, not how to fix it. Good luck. Tag: On Error not trapping internet connection problem

Julian Ladbury

I want to add a toolbar button to a Word 2003 VBA project to access a web page. The code below runs fine when my internet connection is open.

On Error GoTo notFound
ThisDocument.FollowHyperlink _
Address:="http://www.chronolator.co.uk/Tutorials/index.htm", _
NewWindow:=True, AddHistory:=True
Exit Function
' problem time
notFound:
Call showMessage(c8Msg5310)

However, if I take my internet connection down, the On Error statement is ignored and I get a runtime error panel.

The trap does work if the Address is a non-existent local file rather than an http address.

Top

Re: On Error not trapping internet connection problem

Julian Ladbury

My mistake: an earlier On Error in the same subroutine was active. Apologies for any inconvenience caused.

Top