error with wscript.shell error 80070483

Visual Basic for Applications (VBA)

‹ Microsoft ISV
- Archive
  - VB
  - ISV
  - Windows Forms
  - Visual Studio
  - Visual C#
  - Office
  - IE
  - VS Express
  - VC++
  - Windows Live
  - SQL Server
  - Architecture
  - Windows Vista
  - Smart Device
  - Dotnet
  - VS 2008
  - SharePoint
  - Game
  - VFP

- Previous
  - 1
    - MSDN Installation I've MSDN installed on my system, since i've installed it through MSDN setup (not by VS setup) Visual Studio does not recognize its presence(Ctrl+F1 doesn't work.), Is there a way I could tell visual studio about the presence of MSDN. By the way this behaviour is common in both VS 2003 as well as VS2005 Tag: error with wscript.shell error 80070483
  - 2
    - error message when closing ie7 I've been having the same problem. I trawled through my add-ons disabling & enabling until I found the offending article then disabled it. Hope this helps. Tag: error with wscript.shell error 80070483
  - 3
    - add group to printer ACL Hello, I have a print server with 200 shared printers. I need to add a group to each printer ACL with an appropriate rights (same for all printers). Is anyway to script it Thank you Ali Tag: error with wscript.shell error 80070483
  - 4
    - VBA XML and encoding Hello, Here is my issue. In an excel sheet, I fill in several cells which contain text. This text can be either in english / french / spanish / italien / german, which means I can have characters like "e" or "e" etc... In a vba macro I'm trying to put all these data into an XML, this XML is then processed later on by an ASP.net app I have created (using an xmlreader). The thing is, when I try to display the value of each node of my XML with my ASP.net app, some characters are replaced by squares. For example, characters like "-", "...", singlequote BUT, characters like "e" and "e" are perfectly displayed . And when I have a look into my XML file with Visual Studio I can clearly see all my characters. Everything is fine. However, when I try to save the file in VS, it warns me "that some unicode characters can't be saved in the current codepage. Do you want to resave the file as Unicode in order to maintain your data " If I click "YES" it then set the Xml Encoding to : UTF-16 And from now on, everything is displayed correctly in my ASP.net app. Here is the VBA Code which generates my XML File. Code Snippet Open strPath & cstStudyName & ".xml" For Output As 1 Print #1, "< xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-1" & Chr(34) & " >" Print #1, "<root>" iCurLine = cstiStartLine While objSheet.Cells(iCurLine, cstiVarCol).Value <> "" strValue = objSheet.Cells(iCurLine, iEnglisCol) Print #1, "<" & objSheet.Cells(iCurLine, cstiVarCol) & " label= " & Chr(34) & CheckContentsXML(strValue) & Chr(34) & "/>" iCurLine = iCurLine + 1 Wend Print #1, "</root>" Close #1 As you can see, I have tried to specify "ISO-8859-1" in the XML header. If I specify "UTF-8" then xmlreader is generating an error at the first weird character it encounters such as "-" If I try to specify "UTF-16", it then becomes a bunch of unreadable characters and my ASP.net display nothing. Does anyone have an idea Thanks a lot. Tag: error with wscript.shell error 80070483
  - 5
    - Increase prompt in message box I should have said use a label, not a text box. If you need it to scroll, use a textbox, and add this procedure to the code module: Private Sub TextBox1_Enter() Me.CommandButton1.SetFocus End Sub - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: error with wscript.shell error 80070483
  - 6
    - Configuration Failed Configuration Failed One or more configuration settings failed. Completed configuration settings will not be rolled back. Resolve the problem and run this configuration wizard again. The following contains detailed information about the failure: Failed to initialize SharePoint Products and Technologies upgrade. An exception of type System.Collections.Generic.KeyNotFoundException was thrown.Additional Information The given key was not present in the dictionary Plz Help One or more configuration settings failed. Completed configuration settings will not be rolled back. Resolve the problem and run this configuration wizard again. The following contains detailed information about the failure: Failed to initialize SharePoint Products and Technologies upgrade. An exception of type System.Collections.Generic.KeyNotFoundException was thrown.Additional Information The given key was not present in the dictionary Plz Help Tag: error with wscript.shell error 80070483
  - 7
    - Communicator Mobile 2005 and TLS (Using port 4443 possible?) More options Confused on something with CM and CWA: We have web access enabled/installed, it uses MTLS and certificates on port 4443 to access the site... I'm assuming when using Communicator Mobile on Windows Mobile 2005, I specify TLS to connect remotely to the server (no vpn).. Is there a way to specify port 4443 or is the TLS port 443 even with Web Access installed on port 4443 (IE: these are different or the same) Thanks Tag: error with wscript.shell error 80070483
  - 8
    - VBA in Excel - organizing charts as objects in a sheet I am using a macro to create multiple charts from data on a separate sheet in the Excel file. However, the program places each new chart on top of the previous one in the sheet I select. I would like to place these charts apart on the sheet so that they are viewable. 1) Is there an command to order the charts down and across the sheet 2) Alternatively, can I select and move each sheet without using the actual object name in the while loop, "Chart1," for example. 3) Specifiying the object name would only work for the first chart. Is there a way to number the charts with a variable Here is the while portion of my code as it is now ( red text indicates the portion I am having difficulty with ) : While j < 243 Charts.Add With Sheets("TRESULTSdmp_3") ActiveChart.SetSourceData Source:=.Range(.Cells(i + 1, j + 1), .Cells(i + m, j + 1)), PlotBy:=xlColumns End With ActiveChart.ChartType = xlXYScatter ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Test point to the right" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveWindow.Visible = False <----- question 2 above) want to move object to a specific location ActiveWindow.WindowState = xlNormal (will have to make Range a variable) ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.ChartObjects("Chart 8").Activate ActiveChart.Paste ActiveSheet.Shapes("Chart 3").IncrementLeft -123.75 <--- question 3 above) want to make object # variable ActiveSheet.Shapes("Chart 3").IncrementTop -8.25 j = j + 1 Wend Tag: error with wscript.shell error 80070483
  - 9
    - AutoExec will not execute properly Ok, i've been working through the code to see what it actually was required to do. You mentioned that the entries menu_protection_set, menu_protection_clear and menu_archive are the only ones that appear within the custom Menubar. Well, those entries are the only ones (next to the "Formulare und Dokumente") who don't to have a IF .. THEN statement which verifies if the required criteria have been met. If were are walking through the code the following came up: test = Dir(local_start_folder & name_project_list_txt) If test <> "" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_projects ' "&Projektdokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "Select_Project_Document" End If ' test <> "" This particular IF .. THEN Statement verifies if the Dir(local_start_folder & name_project_list_txt) contains at least 1 file. If a file has been found, the Projektdokumente will be created. If the folder is empty, then it will not create the desired item. During the test, if've changed the value to "C:\" and the item was displayed. Other then that, the Kundendaten will be visible if mod_customer_data_bas is equal to True, Update Formulare will be visible when update_allowed is not equal to "yes" and Prozeduren if the string value of get_user_name can be found in all_the_gurus via InStr(1, all_the_gurus, get_user_name, vbTextCompare). My suggestion would be to add "Watches" for each of these values and comparisons to see of the value given actually matches the criteria within the IF ... THEN Statements. After adjusting the test, mod_customer_data_bas and update allowed to the following constants, all of the items will be displayed: test = Dir("C:\") Const mod_customer_data_bas = True Const update_allowed = "No" InStr(1, "test", "test", vbTextCompare) Btw, i've noticed that you've assigned ID 1 to all of the buttons and pop-up menu's. You might want to change that so that every menu and button will have an unique ID. (^_~ ) Tag: error with wscript.shell error 80070483
  - 10
    - Determine if and where the .NET Framework is installed using VBA Hi! It's good, but if soft isn't installed Also, Windows Sistem may set in different PC on different disks (C, D, E...) Tag: error with wscript.shell error 80070483
  - 11
    - Pivot Table Macro It works. Thanks again. Here's the final code I used: Sub CreatePivot() ' CreatePivot Macro ' Macro recorded 3/23/2007 by Dim lastRow As Long lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'get last row of data (in column 1) ActiveWorkbook.Names.Add Name:="Database", RefersTo:="=Data!$A$1 CL$" & lastRow 'add a named range set to data range ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Database").CreatePivotTable tabledestination:="", tablename:= _ "PivotTable1", defaultversion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard tabledestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pivot" End Sub Gary Tag: error with wscript.shell error 80070483
  - 12
    - how can I count # of columns between two specific columns? Ok, thanks. Is there any way to relax the dependency of idenrifying the columns B.regards/Yaping Tag: error with wscript.shell error 80070483
  - 13
    - Why the do while loop does not work? Got it, thanks so much! Tag: error with wscript.shell error 80070483
  - 14
    - VBA and automated word generation Hi there, I am currently working on a VBA application. There is an automated word generation available in the appliacation that serves the reporting process. If there is any Flash add-in being installed in the user's machine (can be viewed through Tools->Templates and Add-ins in MS Word) ,the applicaiton crashes down when the user tries to generate the report because the flash add-in runs initially before the word gets opened. Is there any work around available other than removing the add-in for the application to run successfully Your help is greatly appreciated Tag: error with wscript.shell error 80070483
  - 15
    - Using Excel files in MS Works Had Office and XP on my previous computer and created several Excel files I want/need to keep New computer has Vista and MS WORKS installed - will I have a problem with transferring the Excel files to new computer If so, how do I remedy Tag: error with wscript.shell error 80070483
  - 16
    - iexplore.exe - Application Error I'm getting this with IE 6. Just started as well. Tag: error with wscript.shell error 80070483
- Next
  - 1
    - Obtain Unique Work Units via SQL SELECT DISTINCT Count (WorkUnitsFaultsMainTBL.WorkUnit) AS [Total Work Units], 'No Faults' AS [Fault Type], Sum(IIf([FaultCategory]='No Faults',1,0)) AS [NoFault Totals], FormatPercent(Sum(IIf([FaultCategory]='No Faults',1,0))/Count([WorkUnit]),2) AS [Pct NoFaults] FROM WorkUnitsFaultsMainTBL WHERE (((WorkUnitsFaultsMainTBL.BuildID) In ("E010","C809","F001","C810","F187","A910","M173","M174")) And ((WorkUnitsFaultsMainTBL.TodaysDate) Between Forms!Queries_ReportsFRM!StartDateTxt And Forms!Queries_ReportsFRM!EndDateTxt)); Adamus Tag: error with wscript.shell error 80070483
  - 2
    - Adding Menu to Microsoft project 2007 using VBA How can I add a custom menu using VBA code. There are some changes happened in from Microsoft Project 2003 to Microsoft Project 2007. How can I add custom menu to microsoft project 2007 and make it work to invoke appropriate code. Are there any whitepaper which talks about the changes in the coding from Microsoft project 2003 to 2007. I am new to this area of coding with little knowledge of VBA. ANy help will be highly appreciated. A sample code will work wonders for me. Tag: error with wscript.shell error 80070483
  - 3
    - compile error: invalid quaifier Hi! Thanks a lot! It works like this!!!! Thanks!! Tag: error with wscript.shell error 80070483
  - 4
    - Collection Item: Parent / NextItem Hi, I am struggling with classes. This is what I want to do, in VBA (test it in Excel please): I want to add a property/function to my class, named NextItem and PreviousItem. These return the next and previous items in the collection. I have several separate collections where I keep my items in. So if I want to determine the next and previous item, I need to figure out in which collection the item resides before I can start to loop through that collection. Unfortunately there is no collection.item.parent. That is what I need to simulate I thought about adding a property ParentCollection to the class, but how can I use that property as a pointer to a collection and retrieve the collection from that pointer. Help! Tag: error with wscript.shell error 80070483
  - 5
    - VBA Language Definition Hi, just a quick question Does there exist anywhere a formal definition of the VBA language It would be really useful for my dissertation as i am writing a program that interprets macros so could do with something that would tell me, for example all the different ways that variables can be defined, or all the different types of statement that can be used etc. Any advice is much appreciated Ryan Tag: error with wscript.shell error 80070483
  - 6
    - Are these valid bucket ids ? Thank you both Claus and Saar for your reply. I observed another problem : Suppose I am using WER_SUBMIT_QUEUE flag in WerReportSubmit() In this case, I see a complete report in the queue with dump attached. No complain with this flag. Product Appln 7.30r0 Problem Stopped working Date 6/27/2007 2:01 PM Status Not Reported Problem signature Problem Event Name: APPCRASH Application Name: Apppln.exe Application Version: 7.30.0.0 Application Timestamp: 46821da5 Fault Module Name: test.dll Fault Module Version: 7.30.1.0 Fault Module Timestamp: 467f877a Exception Code: c0000005 Exception Offset: 002DB1A7 OS Version: 6.0.6000.2.0.0.256.4 Locale ID: 1033 Files that help describe the problem Version.txt minidump.mdmp Now, I changed WER_SUBMIT_QUEUE to WER_SUBMIT_NO_QUEUE and removed the network plug. Fyi, I am using reporting thru internet approach. Now report is queued up as network connection is not available. But, this report does not have the crash dump attached. Even if I am connected to net, then also report does not have crashdump attached. What is there in this flag that changes the behavior so drastically ! Now, I need to troubleshoot this problem. If you faced the similar situation, please suggest. Thanks, DHON Tag: error with wscript.shell error 80070483
  - 7
    - VBA 6.5 New Version? I have loaded Office 2007 and the VBA about screen states version 6.5. Is there any documentation on recent changes to the VBA environment An older product which includes the VBA environment is not able to launch any VBA macros with Office 2007 installed. The upgrade to VBA 6.5 may be the problem and I would like to find some detailed information on new releases. Thank you, Greg Tag: error with wscript.shell error 80070483
  - 8
    - Updating column totals in sub forms This has to be simpler than I'm making it! Trying to maintain column ototals ni SubForm, and update them to the MainForm. Typical Northwind-type Orders-&-Details relationship: I extend row totals in the OrderDetails subform; and show OrderTotal (column total) in the SubForm's FormFooter. So far, so good. But when I change a quantity or price in the subform, I'd expect the subtotal to change automatically, no It does not; and I don't know whether I need to code a "Change" event myself, to modify that total whenever a single cell changes; and whether I must loop through the rows, or if there's a nifty group-operator in Access to do the columnTotal for me. (I'm a VB programmer, reluctantly roped into writing an Access form.) Finally, when I leave the Main Record (i.e., parent of the rows in the subForm), I want to store the updated suptotals in the Main/Parent record. (I know, I know, it's not kosher, but they pay me to do this stuff. -- Besides, it records what has been billed as it was billed; not as it's been updated since.) Many thanks, anyone who can provide a cogent reply. S Tag: error with wscript.shell error 80070483
  - 9
    - AutoExec will not execute properly Ok, i've been working through the code to see what it actually was required to do. You mentioned that the entries menu_protection_set, menu_protection_clear and menu_archive are the only ones that appear within the custom Menubar. Well, those entries are the only ones (next to the "Formulare und Dokumente") who don't to have a IF .. THEN statement which verifies if the required criteria have been met. If were are walking through the code the following came up: test = Dir(local_start_folder & name_project_list_txt) If test <> "" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_projects ' "&Projektdokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "Select_Project_Document" End If ' test <> "" This particular IF .. THEN Statement verifies if the Dir(local_start_folder & name_project_list_txt) contains at least 1 file. If a file has been found, the Projektdokumente will be created. If the folder is empty, then it will not create the desired item. During the test, if've changed the value to "C:\" and the item was displayed. Other then that, the Kundendaten will be visible if mod_customer_data_bas is equal to True, Update Formulare will be visible when update_allowed is not equal to "yes" and Prozeduren if the string value of get_user_name can be found in all_the_gurus via InStr(1, all_the_gurus, get_user_name, vbTextCompare). My suggestion would be to add "Watches" for each of these values and comparisons to see of the value given actually matches the criteria within the IF ... THEN Statements. After adjusting the test, mod_customer_data_bas and update allowed to the following constants, all of the items will be displayed: test = Dir("C:\") Const mod_customer_data_bas = True Const update_allowed = "No" InStr(1, "test", "test", vbTextCompare) Btw, i've noticed that you've assigned ID 1 to all of the buttons and pop-up menu's. You might want to change that so that every menu and button will have an unique ID. (^_~ ) Tag: error with wscript.shell error 80070483
  - 10
    - MS Office document and image writer print driver 1. Go to Control panel �C Printer and fax 2. Add Printer �C select local printer attached then manual 3. In the port option select Document image printer writer port 4. Install a generic text only printer. 5. Right-click on the generic text/only printer driver and select properties. 6. Click on ports and select "Microsoft office document imaging driver port" 7. Click on the advanced tab and change the driver to Microsoft office document image writer 8. Click on apply and OK Tag: error with wscript.shell error 80070483
  - 11
    - Fill word document with fields from Access form programmatically Hi - i have a form called 'formpo' that allows users to enter information that we use for purchase orders such as date, order value, supplier name, purchase description, etc etc. when the user has filled in the information on the form i would like them to be able to click a button on the form screen that will take the values from the form and insert them into a specific word document, and have the values entered into a specific place on the word template. There is a lot of stuff out there but its not the best and its mainly about mailmerging it which i dont want to have to do because its a right pain in the proverbial behind. Has anyone done this before Many thanks, Rhys. Tag: error with wscript.shell error 80070483
  - 12
    - Projects, objects & modules Place this code in Thisdocument. Save/close the file then re open it. The Open event will be trigger and the message displayed. Private Sub Document_Open() ' will display a message box when document is opened. MsgBox "Hello World" End Sub ThisDocument refers to the document that contains the code currently being executed. The application also has an ActiveDocument reference which as the name suggests refers to the active document. The updating of this reference is handled automatically by the application. Copy the following code into a standard module within your document. Within the VBE (Visual Basic Editor) environment press CTRL+G to display the immediate window. From here you can run the macro by simply typing DocInfo and pressing enter. The message boxes should display the same name for This and Active document. Now open another document file and re run the macro. This time the activedocument name should be that of the newly opened file whereas the Thisdocument will be the same. Sub DocInfo() MsgBox "Thisdocument is " & ThisDocument.Name MsgBox "Active Document is " & ActiveDocument.Name End Sub Tag: error with wscript.shell error 80070483
  - 13
    - VBA read a value and not a formula Hi As you say almost there. Try .. ActiveCell.FormulaR1C1 = "=SUMIF(R[-2]C10:R[-2]C100,""=" & name & """,RC[7]:RC[84])" Regards Peter Mo Tag: error with wscript.shell error 80070483
  - 14
    - ReportFault() vs. WerReportCreate/WerReportSubmit() on Vista Claus Brod wrote: Hi all, I'm experimenting with the available APIs for error reporting. On XP systems, I'm using ReportFault(), which seems to work as expected- it displays the WER dialogs, sends data to the Winqual site (including minidump data), launches a debugger when asked for by the user etc. That doesn't sound correct to me. In my experience, ReportFault() just returns frrvLaunchDebugger when somebody hits the 'debug' button and it is then up to you to do the launching. Are you sure you're not just seeing the exception go all the way out to the Unhandled Exception Filter provided by the O/S, which itself calls ReportFault() and knows how to launch the debugger Tag: error with wscript.shell error 80070483
  - 15
    - CurrentRegion Property to Specify SourceData in PivotCache Method I've adopted the following for creating a new pivot table: Set ptTable = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rData) _ .CreatePivotTable(TableDestination:=wsPivot.Range("A3"), TableName:="PTPrice", DefaultVersion:=xlPivotTableVersion10) where ptTable is declared as a PivotTable, rData as an Excel.Range, and wsPivot as a worksheet. I know I had problems with the previous technique I'd been using, but the above eliminated the problems. I don't recall exactly what the previous technique had been. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: error with wscript.shell error 80070483
  - 16
    - Passing Function As Argument You can do it like this as VBA does not allow for pointers to functions. I did not know what the values of Left and Right should be. With both at zero the function runs out of stack. Sub Test() MsgBox Find_Zero("Function1", Left, Right) MsgBox Find_Zero("Function2", Left, Right) End Sub Function Function1(Value) As Double Function1 = Value - 10 End Function Function Function2(Value) As Double Function2 = Value End Function Public Function Find_Zero(Function_X As String, Left As Double, Right As Double, Optional Precision As Double = 1 / 1000) Dim Value_at_Mid As Double Dim Mid As Double Mid = (Left + Right) / 2 Value_at_Mid = Application.Run(Function_X, Mid) If Value_at_Mid <= Precision And Value_at_Mid >= -Precision Then Find_Zero = Value_at_Mid Else If Value_at_Mid * Application.Run(Function_X, Left) > 0 Then Left = Mid Else Right = Mid End If Find_Zero = Find_Zero(Function_X, Left, Right) End If End Function Tag: error with wscript.shell error 80070483

rhXX

hi,

i am trying to run a vb script from a VBA module in excel.

fn = "test.vbs
Set wshShell = CreateObject("Wscript.Shell")
wshShell.Run (fn)

in the line wshShell.Run (fn) i obtain an error error 80070483

method Run of object IWshShell3 failed

it is the first time i do this, so i am not shure if i need to have done something before, some references

in windows extension .vbs is not related to any application (is it ok )

tks in advance

Top