Search results for query: *

click: View -> Objectbrowser -> rightclick <all libraries> -> references -> uncheck unwanted reference best regards, John

Hi, I tried to reproduce your situation and found nothing strange. I made a file (c:\map1.csv) with: 1,2,3,4,,6,7,8,9,10,11,12 and used this code to test it: Option Base 1 'array starting with 1 in stead of 0 Sub Test() Dim Values() f = FreeFile Open &quot;C:\map1.csv&quot; For...

Yes! :-) this one did the job... Private Function ExeFromLnk(ByVal LnkFileName As String) As String Dim strTarget As String Dim strShortFileName As String Dim lnkShortcut As Object Dim wshShell As Object strShortFileName = String(255, &quot; &quot;) & Chr(0) Call...

I have a program which allows the user to save data to a location. My save-as-dialog shows 'real' folders but also shortcuts (.lnk). I use the file scripting object to check if the selected folder exists. When i select a shortcut (.lnk), fso.folderExists returns False. Is there a way to save a...

I want to email from Excel with Lotus Notes. When Notes is not running I get the following error: the notes.ini file cannot be found in the search path: notes.ini Is there a sollution to this error? When notes is allready running, it works fine. Best regards, John

I have a workbook and i'm hiding al commandbars at startup. When i close the workbook all the commandbars are set to the normal value. This works except for my formulabar. this is my code: Dim Bar As Object For Each Bar In Application.CommandBars Bar.Enabled = True Next Bar...

i made some small addition to the code. I create a dummyfile with the extention i need. f = FreeFile Open &quot;C:\a.<extention you want>&quot; For Output as #f Print #f, &quot;&quot; Close #f in code in previous message: Const sFile = &quot;C:\a.<extention you want>&quot; After finding...

thanks! it works :-) Regards, John

Hi! I want to search in the registry in W2K for a program that is associated with &quot;.out&quot;. I can do it in W98 but in W2K it is located under the (current) user: HKEY_USERS\<encrypted uservalue>\software\...\FileExts I know how to get my computername and username, but how do i get the...

Hi Justin, I tried this one and it returns &quot;False&quot; as result in my footer. I declared UnitName as a stringvariable. John

Hi, I would like to modify the footer of my page before printing it with the name of my company-unitname. But the code interprets everything as string. Is there another sollution to this problem? Unitname=Worksheets(n).Cells(r,k) With ActiveSheet.PageSetup .LeftFooter =...

Hi Brans, I give you my thoughts about this. You can determine the number of characters, and also you can select the object. It is possible to rescale the width without changing the height. nrChar = Len(myText) ActiveSheet.Shapes(&quot;WordArt n&quot;).Select...

Brans, I tried this also and this doesn't work either. I used this methods in other workbooks and I can't figure out why it fails this time... Best regards, Jan

Hi, If your text is stored in a stringvariable like myLength, you can determine the number of characters with: Len(myLenght) Is this what you are looking for? Best regards, Jan

I have created a button so I can save and quit my active workbook. When I do this, Excel hangs up. In Explorer I can see that a new file is created with a strange name. When I run the macro step by step, this problem doesn't occur. I tried different things s.a. closing with application.quit...

Thanks Skip, it works.. Merry christmas! Jan

I'm reading data from a comma-separated-file into a worksheet. The worksheet is protected. The cells have a format with left allignment of the Euro-sign and right allignment of the value. After import the Left allignment of the Euro-sign is changed to right. How can I prevent this from...

Thanks! It's just like Xi, It works deliciously

How can I access each File with Application.GetOpenFilename in Excel? I know the option Multiselect must by set to True. My old VBA code was: objA = Application.GetOpenFilename A contains the path and filename I call another macro and pass through the value of A Now I want to do the same for a...