Using Excel files in MS Works

Visual Basic for Applications (VBA)

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

- Previous
  - 1
    - New to Visual Basic Hi, Making use of textbox or string in this scenario will make your job,i suppose. Use a text box, when ever a button pressed , do TextBox1.Text = NumberofTheButton.ToString() & TextBox1.Text or numberstring = NumberOfTheButton.ToString() + numberString when you want the value ,convert the textbox value or sting to integer or long or what ever want. Hope this works out for your requirement. Thanks, Ch.T.Gopi Kumar. Tag: Using Excel files in MS Works
  - 2
    - Information required : WOW64 From http://msdn2.microsoft.com/en-us/library/ms952405.aspx : WOW64 WOW64 is short for Windows-32-on-Windows-64. It provides 32-bit emulation for existing 32-bit applications, enabling most 32-bit applications to run on the 64-bit version of Windows without modification. It is similar to the old WOW32 sub-system, which was responsible for running 16-bit code under the 32-bit version of Windows. The hardware itself has a 32-bit compatibility mode, which handles actual execution of IA-32 instructions, but the WOW layer handles things like switching the processor between 32-bit and 64-bit modes and emulating a 32-bit system. For example, there are different registry hives for 32-bit and 64-bit programs. There is also a different system directory for 32-bit binaries. The 64-bit binaries still use the System32 directory, so when a 32-bit application is installed on the system, the WOW layer makes sure to put the 32-bit binaries in a new directory: SysWOW64. It does this by intercepting calls to APIs like GetSystemDirectory and returning the appropriate directory depending on whether the application is running under the WOW or not. The same issue can exist with the registry. Since both 32-bit and 64-bit COM servers can be installed on the system under the same class identifier (CLSID), the WOW layer needs to redirect calls to the registry to the appropriate 32-bit or 64-bit hives. The WOW layer also handles mirroring changes between some areas in the registry, in order to make it easier to support interoperability between 32-bit and 64-bit code. WOW64 is important because it allows you to leverage most of your existing 32-bit code when performance and scalability are not a concern. It is a best of both worlds approach. You can port your service to 64-bit and leave your Microsoft Management Console (MMC) configuration snap-in 32-bit. The 64-bit version of Windows includes both 32-bit and 64-bit versions of MMC. When choosing to leave administration tools as 32-bit there may be some issues with inter-process communication, but protocols such as Remote Procedure Call (RPC) should work between 32-bit and 64-bit processes, as long as the interfaces are designed correctly. Another thing to keep in mind about WOW64 is that it is not designed for applications that require high-performance. At the very least, the WOW64 sub-system needs to extend 32-bit arguments to 64-bits, and truncate 64-bit return values to 32-bits. In the worst case, the WOW64 sub-system will need to make a kernel call, involving not only a transition to the kernel, but also a transition from the processor's 32-bit compatibility mode to its native 64-bit mode. Applications won't be able to scale very well when run under WOW64. For those applications that you would like to leave as 32-bit, test them under WOW64. If the performance is not meeting your expectations, you'll need to look at migrating the application to 64-bit. WOW64 is implemented in user mode, as a layer between ntdll.dll and the kernel. WOW64 and some of its support DLLs are the only 64-bit DLLs that can be loaded into a 32-bit process. For all other cases, processes are kept pure. The 32-bit processes cannot load 64-bit DLLs, and vise versa. For more information about WOW64, see "64-bit Windows Programming - Running 32-bit Applications" in the MicrosoftR Platform SDK. http://msdn.microsoft.com/library/default.asp url=/library/en-us/win64/win64/running_32_bit_applications.asp Tag: Using Excel files in MS Works
  - 3
    - 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: Using Excel files in MS Works
  - 4
    - error message when closing ie7 The best place to get help on IE7 is http://www.microsoft.com/windows/ie/support/default.mspx There is a newsgroup dedicated to IE issues and discussions: microsoft.public.internetexplorer.general I'm sure that someone has had the same issue and has a solution or a workaround. When you post something up there, be sure to clue them in to your operating system and which version number of IE7 you are running. You can find the version number under the Help menu > About Internet Explorer. -brenda (ISV Buddy Team) Tag: Using Excel files in MS Works
  - 5
    - 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: Using Excel files in MS Works
  - 6
    - 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: Using Excel files in MS Works
  - 7
    - Increase prompt in message box Display your help text in another userform. This form needs an OK button and a text box large enough to hold the text. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: Using Excel files in MS Works
  - 8
    - Configuration Failed Hi, Can you please provide some background information on this issue What OS and product version(s) are you running What were you trying to do when you received this error thanks, -brenda (ISV Buddy Team) Tag: Using Excel files in MS Works
  - 9
    - Communicator Mobile 2005 and TLS (Using port 4443 possible?) More options I should add, the specific error is: "Communicator Mobile: Unable to connect to Server . Please check if correct certificates are installed." I am attempting to connect to the server via TLS.. I've entered the remote server access address.. ie: wan.domain.com We have CWA setup and it works fine.. using https://wan.domain.com:4433 (not port 443)... Do I need to have CWA on port 443, for the mobile part to work Or do I need to import a certificate from the server (I tried and it said it wasnt a valid root certificate). Tag: Using Excel files in MS Works
  - 10
    - VBA in Excel - organizing charts as objects in a sheet See the example Code Snippet 'First SourceData Range is "A1:B5" 'Second SourceData Range is "A11:B25" 'Third SourceData Range is "A21:B45" b = ActiveSheet.Shapes.Count ' if there are other Shapes in ActiveSheet For a = 1 To 3 MyRange = Range(Sheets("Sheet1").Cells(a * 10 - 9, 1), _ Sheets("Sheet1").Cells(a * 10 - 5, 2)).Address(0, 0) Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(MyRange), PlotBy:= _ xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ActiveSheet.Shapes(a + b).Name = "MyChart" & a With ActiveSheet.Shapes("MyChart" & a) .Top = Sheets("Sheet1").Range(MyRange).Top .Height = Sheets("Sheet1").Range(MyRange).Height * 1.9 .Width = Sheets("Sheet1").Range(MyRange).Width * 1.9 End With Next You may not name a Chart/Shape if you will not use it at a later time Tag: Using Excel files in MS Works
  - 11
    - AutoExec will not execute properly I order to help, i would need to see a bit more of the code you are using to create the menubar in question. (^_^; ) Tag: Using Excel files in MS Works
  - 12
    - Determine if and where the .NET Framework is installed using VBA You can use the Registry "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Uninstall" to determine existent soft. You need to use the API-functions RegQueryValueExString, RegOpenKeyEx and others I have made this function, tomorrow I will test it (I will use PC without the FrameWork) Do you still need in it Tag: Using Excel files in MS Works
  - 13
    - Pivot Table Macro Gary, You should be able to get the last row used on a sheet using code similar to: lastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row 'get last row of data (in column 6) then you can use "=Data!$A$1:$CL$" & lastRow to set the SourceData of the Pivot Cache Whenever I've worked with pivot tables in VBA I've found it easier to work with PivotTable & PivotCache objects. The code excerpt below shows how and should give some ideas: Public Sub Pivot_OrderNumDate() Dim WBPivot As Workbook Dim lastRow As Long Dim ptRng As Range Dim PC1 As PivotCache Dim PT1 As PivotTable On Error GoTo PivotErr Set WBPivot = ThisWorkbook lastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row 'get last row of data (in column 6) WBPivot.Names.Add Name:="Database", RefersTo:="=Sheet1!$A$1:$F$" & lastRow 'add a named range set to data range Set ptRng = Cells(lastRow + 4, 1) 'Pivot table is placed 4 rows below data 'create pivot cache & table Set PC1 = WBPivot.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Database") Set PT1 = PC1.CreatePivotTable(tabledestination:=ptRng, tablename:="PT1", defaultversion:=xlPivotTableVersion10) With PT1 .ColumnGrand = False .RowGrand = False .AddFields RowFields:=Array("Order no", "Item code", "Description", "Customer no", "Date") With .PivotFields("Duration") .Orientation = xlDataField .Caption = "Sum of Duration" .Function = xlSum .NumberFormat = " :mm" '(hours:minutes!) End With .PivotFields("Customer no").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) End With ActiveSheet.Columns("A:F").AutoFit Set PT1 = Nothing Set PC1 = Nothing Set WBPivot = Nothing Exit Sub PivotErr: MsgBox "Error" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "Pivot table" End Sub Tag: Using Excel files in MS Works
  - 14
    - how can I count # of columns between two specific columns? Hi, One way, Msgbox Range("A ").Columns.Count Although a lot depends on how you are currently identifying the 2 columns. Tag: Using Excel files in MS Works
  - 15
    - Why the do while loop does not work? It's because the second time round the loop the code is referencing cells on the active sheet (AFFILIATE), not the original sheet. Try to use Worksheet objects, then you don't have to keep activating different sheets. Also the Else clause isn't needed as there's nothing in it. Tag: Using Excel files in MS Works
  - 16
    - VBA and automated word generation Bindhia wrote: 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 Hi, This forum is for VB.Net questions only, sorry. Please see.>> http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=551512&SiteID=1 Try this VBA forum.>> http://www.programmersheaven.com/mb/ vba /Board.aspx S=B20000 Regards, S_DS Tag: Using Excel files in MS Works
- Next
  - 1
    - iexplore.exe - Application Error I get the exact same message. Have you found any answers What have you tried to do Tom Tag: Using Excel files in MS Works
  - 2
    - error with wscript.shell error 80070483 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 Tag: Using Excel files in MS Works
  - 3
    - Obtain Unique Work Units via SQL SELECT DISTINCT Count (WorkUnitsFaultsMainTBL.WorkUnit) AS [Total Work Units], Adamus Tag: Using Excel files in MS Works
  - 4
    - 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: Using Excel files in MS Works
  - 5
    - compile error: invalid quaifier Hi, The following works for me. Public Type typVF Nr(20) As Long NomeCliente(20) As String Dt(20) As Date End Type Public VF As typVF Public Sub introduz() Dim i i = 0 Do While i <= 20 VF.Nr(i) = Val(InputBox("Introduza o numero de cliente", "Numero de cliente")) ' ** VF.NomeCliente(i) = InputBox("Introduza o nome do cliente", "Nome do cliente") If VF.NomeCliente(i) = ("XYZ") Then Exit Do End If VF.Dt(i) = InputBox("Introduza a Data da Factura", "Data da Factura") i = i + i Loop End Sub Can you post the code where you define and declare the type. Tag: Using Excel files in MS Works
  - 6
    - Collection Item: Parent / NextItem Hi, It's a little difficult to know whether this will work in your code as you haven't posted any and the description is a little light on detail. You will need to use the key to access an item, especially if the collections contain duplicate values. Code Module : Sub Test() Dim clsX As Class1 Set clsX = New Class1 With clsX With .ColA .Add 11, "A1" .Add 12, "A2" .Add 13, "A3" End With With .ColB .Add 21, "B1" .Add 22, "B2" .Add 23, "B3" End With With .ColC .Add 31, "C1" .Add 32, "C2" .Add 33, "C3" End With End With Debug.Print clsX.ColA.Item(1), clsX.ColA.Item("A3") Debug.Print clsX.ColB.Item(2), clsX.ColB.Item("B2") Debug.Print clsX.ColC.Item(3), clsX.ColC.Item("C1") Debug.Print clsX.ParentCollection("B2").Item(1) Debug.Print clsX.ParentCollection("A3").Item(1) Debug.Print clsX.ParentCollection("C1").Item(1) End Sub Class1 code module: Private m_colA As Collection Private m_colB As Collection Private m_colC As Collection Public Function ColA() As Collection Set ColA = m_colA End Function Public Function ColB() As Collection Set ColB = m_colB End Function Public Function ColC() As Collection Set ColC = m_colC End Function Function ParentCollection(ColItem) As Collection Dim lngIndex As Long Dim vntTest As Variant For lngIndex = 1 To 3 Select Case lngIndex Case 1 On Error Resume Next vntTest = m_colA.Item(ColItem) If Err.Number = 0 Then Set ParentCollection = m_colA Exit Function End If On Error GoTo 0 Case 2 On Error Resume Next vntTest = m_colB.Item(ColItem) If Err.Number = 0 Then Set ParentCollection = m_colB Exit Function End If On Error GoTo 0 Case 3 On Error Resume Next vntTest = m_colC.Item(ColItem) If Err.Number = 0 Then Set ParentCollection = m_colC Exit Function End If On Error GoTo 0 End Select Next End Function Private Sub Class_Initialize() Set m_colA = New Collection Set m_colB = New Collection Set m_colC = New Collection End Sub Tag: Using Excel files in MS Works
  - 7
    - VBA Language Definition Jeez, wouldn't that make it too easy Are you looking for information on VBA with the older versions of Office, or the brand new "VBA" which is basically just .NET code running under the MSO mechanism Which one are you working with If you're working in VB6, this unfortunately isn't the right forum for support. Tag: Using Excel files in MS Works
  - 8
    - Are these valid bucket ids ? Congratulations, those look like valid bucket IDs to me! Which approach did you choose now Are you still queuing the reports Claus http://www.clausbrod.de/Blog Tag: Using Excel files in MS Works
  - 9
    - VBA 6.5 New Version? You will not find many changes. One nice improvement is that mouse wheel works in the VBE. Tag: Using Excel files in MS Works
  - 10
    - 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: Using Excel files in MS Works
  - 11
    - AutoExec will not execute properly I order to help, i would need to see a bit more of the code you are using to create the menubar in question. (^_^; ) Tag: Using Excel files in MS Works
  - 12
    - MS Office document and image writer print driver Per our support engineer: Thanks for using ISV Community Forum, according to your problem, I��m wondering whether you can simply log on the machine as administrator and delete the virtual printer (just select the icon and press del key) in Control Panel -> Printers and Faxes , after the deletion, the virtual printer will no longer appears in each user��s profile. Of course, since you��ve already installed feature, you can easily recover the virtual printer without reinstallation. -brenda (ISV Buddy Team) Tag: Using Excel files in MS Works
  - 13
    - Fill word document with fields from Access form programmatically Assuming you have a word template, put a bookmark (in Word) where you want to add data from Access. The bookmarks can be named, (I think I'm right there) and then you can get to them from VBA behind the Access form. Good luck, Vic Tag: Using Excel files in MS Works
  - 14
    - Projects, objects & modules Hi, Project contains all the classes related to the document. ThisDocument is a special class referencing the document within the project. The events of the document are exposed in the Thisdocument object. Modules contain code which is available to the whole project, taking into account any scope issues. Multiple modules tend to be used on more complex projects. Recording macros in a freshly opened copy will cause the code to be placed in a new module. Keeps new code away from any previously created and structured coding. How are you learning VBA This site might be of interest. http://word.mvps.org/FAQs/MacrosVBA/index.htm Tag: Using Excel files in MS Works
  - 15
    - VBA read a value and not a formula As the 'name' is within doube quote it is considered as literal string in the formula Try the way as used below: name = "A1=10" ActiveCell.FormulaR1C1 = "=SUMIF(R[-2]C10:R[-2]C100," & name & ",RC[7]:RC[84])" Cheers Shasur Tag: Using Excel files in MS Works
  - 16
    - ReportFault() vs. WerReportCreate/WerReportSubmit() on Vista Hi Claus, We can help you here with your WERAPI questions. Off hand, I think you would be interested in the restart and recovery APIs in addition to the WER Data Collection APIs. I envision that the new rich WERAPIs in Windows Vista will enable you to do everything you need. I'll talk to the Developer Lead of the APIs to see if there are any samples or guidance available and one of us will get back to you. In the meanwhile, you can explore these APIs at http://msdn2.microsoft.com/en-us/library/ms681656.aspx (Core WERAPIs) and http://msdn2.microsoft.com/en-us/library/aa373342.aspx (Application Restart and Recovery APIs). Kind Regards, -Jason Tag: Using Excel files in MS Works

missypam

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

Top

Re: Using Excel files in MS Works

Andy Pope

Hi,

Works will allow you to open an xls file but you then get prompted to select the sheet you want.
Looks like Works only has a single sheet.

Cheap but not free: Depending on where you are using the files a Student/Home office version of 2007.

Other alternatives are the open source office suites.

Top