Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  HOME    TRACKER    Visual Basic

Copy Graph Into New Workbook "values Only"


I have a excel workbook with several sheets. The first one is my "report"-sheet where I have a graph which data comes from the second sheet.

So as this excel workbook shall be a report to hand over to my colleagues I copied the first sheet (report) into a new workbook and handed over this workbook.

Now what happend, if the colleagues open several of these "report workbooks" at the same time, all graphs look the same (they update according to the last opend workbook I think - or was it the first? anyhow- either way). I know that this has to do with the link of the graph to the data source, which in all cases is the same (my workbook). Strange enough, that even the colleagues do not have my workbook on their computer, all of the created workbooks are in a way communicating.

Does anybody know,what's this phenomenon and how to just give the "values" of the graph to my colleagues,without the links to the original workbook like you do with cells (Selection.PasteSpecial Paste:=xlValues).

Very greatful for any advice.


View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Method "SaveAs" Or "Save" Of Object "Excel.Workbook" Does Not Work.
Hi people.
I did for a long time a program that uses excel automation, so that from a template will create a final file with some data pulled from the database (with ADO). At the end and when the Excel file is ready to be saved I got in a couple of computers some problems. In the whole LAN have XP, but in these 2 computers we have SP2. I have checked the rights and are OK (I have even tried to save the Workbook under the Temp folder and also the same problem).
Working with Office 2003 (SP1).
I have searched in internet about any bugs but I don´t find anything.
Any ideas.
Thanks for your time

"Copy" A Worksheet From A Workbook To Another Wbk
My problem is this:

I have this workbook in the app.path that contains this one worksheet. I want to get this worksheet and put it, or copy it, into another workbook with the Excel object all through VB. How would I go about doing this? Thanks.

Sheets(ActiveSheet.Name).Copy "Values Only"
I have linked cells on a worksheet with this sting in it:

Is it possible within this string to specify that only the values of the whole sheet be copied? This file gets emailed externally and I'm trying to avoid having the message:

"The workbook you opened contains automatic links to information in another workbook. Do you want to update this workbook with changes made to the other workbook?"

The people who receive it can't get the updates anyway.

Or, could I specify that the links be removed before this line of code:

ActiveWorkbook.SaveAs FileName:="C:file.xls"

Error:Change Y-axis Of Scale Of "Microsoft Graph 2000" Graph
Error:Change y-axis of scale of "Microsoft graph 2000" graph

A graph object can be accessed (to change the scales) this way in an Excel application.
With ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlValue)
.MaximumScale = 15
.MinimumScale = 5
End With

What is the equivalent in an Access 2000 application or Visual basic? I am trying to change the max and min on the y-axis (of a linear graph OLE Class: Microsoft graph 2000 chart and class: MSGraph.Chart.8) based on the data I am plotting. Each of the code (tries) below gives me an error such as “object doesn’t support this property of method”

With Me.[ContractLinearGraph].Axes(2)' this blows up
'With Me.[ContractLinearGraph].axes(xlvalue) ' this blows up
'With Me.[ContractLinearGraph].Chart.Axes(xlValue)' this blows up
'With Me.Application.ChartObjects("ContractLinearGraph").Chart.Axes(xlValue) ' this blows up

If bPlottable Then
.MinimumScaleIsAuto = False
.MaximumScaleIsAuto = False
.MinimumScale = CDbl(yaxisMinimum)
.MaximumScale = CDbl(yaxisMaxmum)
End If
End With

If I Use "SaveSetting App.Title, "Settings", "Font", "001122"" - Save Date In The Registry, Where Ca
If i use "SaveSetting App.Title, "Settings", "Font", "001122"" - save date in the registry, where can i find the value saved in the registry? Thanks

If "x" In Col C, Then Copy Value In Col "B" To Column "A" Using Offset
Hi there, I'm new to this forum stuff. Maybe someone can help me with this...

What I'm trying to do is if there is an "X" value in column C, then I need the value in column (talking about the same row) B copied, and pasted into column A. If it finds a zero value in column C then it exits the for loop.

For Each cell In Range("c1:c19")

If c = "X" Then
cell.Activate.Offset(0, -1).Copy
c.Offset(0, -1).Paste

End If
Next cell

End Sub

Solution> Error: """"&&H8007007E (-2147024770) The Specified Module Cannot Be Found"""

This is the error what i am getting after installing a package of one of my module on user testing machine.
The same module being working fine on others.

What can be the reason for this and what can be the probable solution for this?


Replace All Field1 Values From "O" To "Z"
Does there exist any other way to do this (like using SQL EXECUTE??? statement or something similar):

'change status
adoTmp.RecordSource = "SELECT * FROM table1 WHERE field2 LIKE 'AJA' AND field1 LIKE 'O'"
Do Until adoTmp.Recordset.EOF
adoTmp.Recordset.Fields("field1") = "Z"


How To Replace "Apple" With "Banana" In A String That Contains "Orange" In A TXT File
Whoa! Long thread title. Basically, how can I search for any string in a text file that contains "Orange", then replace "Apple" with "Banana" in that same string? Is this difficult? Thanks!

Data1.RecordSource = "select * From Salary Where 姓名 Like " + S + " " * ""
Data1.RecordSource = "select * from salary where 姓名 like " + s + " " * ""
thanks in advance gentlemen and ladies..
firstly...I don't know what must add "++" between "s " variant..
who can tell me why?? thanks , ,, I really don't know why it does this..
maybe i am a beginner..please forgive me why add ++ between s..thanks

How To Change Boolean Field From Displaying "0" And "-1" To "Yes" And "No"
Hey there,

I have a data report, which displays a few fields from an Access table, one which is a boolean. At the moment if the boolean value is True, then on the data report it displays "-1", and if False "0".

How can I change this so it displays "Yes" if true and "No" if False?

Would be really grateful for any help.

Shared Workbook Error : "Catastrophic Failure." !!
I have developed a Shared Excel workbook with lots of macros and visual basic code behind it. It's been working great, but this morning when I opened it, an error box popped up that said "Automation error. Catastrophic failure." Selecting "OK" pulled up the VB editor, which was useless since you can't view any code on a Shared folder. Excel also froze up on me (forcing me to restart it). Everyone on the network had the same problem (we're all on Windows 2000) except our secretary (for some reason we were never able to figure out...). Then we did the following procedure:
1. Open the workbook, disabling the macros (all of our security levels are set to Medium).
2. Turn the "Sharing" property off.
3. Save.
4. Turn the "Sharing" property back on.
5. Close the workbook.
It doesn't really make sense, but the next time we tried to open it (enabling the macros), it worked, and hasn't given us any trouble since. The problem is that this workbook is for a client, and we want to fix it so that the error is not generated again--and since we were never able to find the cause, we don't know what changes we need to make.

Does anyone have any ideas or experience with this type of error?

One other question. We also noticed that the when the workbook is Shared, the act of saving and closing the file (even when you don't make any changes!) adds about 1 MB to the th file size! However, if you turn "Sharing" off and then turn it back on, it resets the file size to the original. Any ideas on how to keep it from blowing up?


Hello !!!
I have a problem withh excel,but i can't solve it alone.
I would really appreciate any help .
I have searched on the internet but I couldn't find a solution.

I have an excel file (you will find attached a small example(jpg as i was unable to upload the xls file) of what it looks like (in a simplified version)).

According to the start date that I have in cells B12-B17 i want excel to find (in table 1) and copy (to table 3) the standard duration of each task in table 3 at the correct collumn that corresponds to the week of the begining of the task(we consider that the maximum duration is 4 weeks and the workload is given in cells B4-E7.
What I need looks a lot like a Gantt diagram, but i need into the appropriate cells the values that correspond to each week's workload.

I don't know if something like that can be solved using formulas or visual basic (i think VB is more secure, as formulas can be erased by users,and the protection causes problems on filtering etc).

Thank you in advance for your help

Excel "exit Workbook Macro"
Hi all

Im new in here but i am looking for a macro to use in Microsoft Excel.
I want it to save the current workbook and any changes and then exit the current workbook. Please let me know if you know how to do this.


from CK

Extract Local Names For "OK", "Cancel" And "Apply"

I noticed that some programs written in C++ have an English language, but the captions of the buttons "OK", "Cancel" and "Apply" are in German, Swedish or whatever localized Windows version the user utilizes. Any idea how to obtain the captions of those buttons in VB? The only method which comes into my mind is to get the locale ID and have an array with strings for the the various language versions, but I doubt that those programs do it in that way.


<input Type="submit" Name="op-savefile" Value="Save"> - How To S
<input type="submit" name="op-savefile" value="Save"> - How can you submit this button through visual basic in a webbrowser?

Disabling "wake Up", "sleep" && "power" Button
hello there, how to disable "wake up", "sleep" & "power" button with visual basic? thanks

Pleez, Read This!!! Matter Important! "Printing In "DOS Mode" Using "Shell" -not Happening, I Wonder

[I had to repost it since I have not received any replies for my earlier post]

I have a problem.

Following is the code :

Shell(" /c type " & App.path & "matrix.txt &gt;prn")

where App.path is C:XYZ

when the above line is executed, the contents of "matrix.txt" is not printed on the printer. Instead, control just passes on to the next line.

So, to find out why, I modified the line thus.

Shell(" /K")

The above command takes me to the "command prompt". Here, when I give the command "type c:xyzmatrix.txt &gt;prn", which is what the vbcode does, I get the message "file creation error".

So, I have identified the problem. Can anyone tell me why this "File creation error" occurs, And how to solve the problem?

Thanks for reading through.

Get "Graph-Function" Going Through Some Points !
Get "Graph-Function" going through some Points !This Problem is pretty mathematical !
Is there a possibility of getting the graph-function that goes trough several Points ?
I think there is sth. in Excel

What i want is:

---> Gimme graph-function through these Points !
i.e.: "1,05x² + 3" or sth like that !

This would be awsome !
Thx ryKo

VB To Open Workbook With "n" Sheets?
Hello All,

Simple problem, but I can't find the solution.

How do I get VB to open a workbook with 3 sheets, instead of 1, if "1" is the selection in the options of Excel?



SUMIF "#VALUE" If Looking In Another Closed Workbook
I have this formula in a Workbook in my worksheet BASE


When tablacv.xls is closed it returns #VALUE

If I open the tablacv.xls then I get the calculated value... why? ... is there any way to correct this...

When the tablacv.xls is open this is how my formula is displayed...



Is There A "Workbook Open" Event ???
I have a series of macros in a workbook that starts everytime excel starts (xlstart folder). One of the macros builds a menu of available macros.

Some workbooks I open have a lot of sheets. It is inconvenient to scroll sideways to see them all. I would like to create a macro that adds a menu item for each sheet in the workbook.

I would like this macro to be dynamic such that when you open another workbook, then it adds more entries for that workbook. And when you close a workbook, then those workbooks entries get removed.

My question is: What event(s) get fired on a global level for each open and close of a workbook. Also, I do not want to add the macro to all of the individual workbooks, but rather only to my autostarting workbook.

Thanks for your help.

Getting The File "Type" Descriptions (i.e., "doc" = "Microsoft Word Docume
Hello there,
I am creating an Explorer-type Listview to display the files in a directory, and one piece of info I need to know how to obtain is the file "type" (i.e., "doc" = "Mircosoft Word Document", "xls" = "Microsoft Excel Worksheet", etc.). Is there an API, or does anyone have a technique to do this? Thanks.

Changing The "title" Of A VB Created Word Doc From "Document1" 2 "BadgerBai
Ok, when I create a new word doc it automatically takes on the name "DocumentX", where X is a number greater than 1.
What I want to do is change this by using something like:

VB Code:
Dim objWoof As New Word.ApplicationDim objGrowl    As Word.Document    Set objGrowl = objWoof.Documents.Add    objGrowl.[What Property] = "Badger Baiters R Us"

Is this possible?

Oh, and b4 anyone mentions it, I do NOT want to save it, that is NOT an option...just getting that out the way now



Resubmitting: "BeginTrans" , "CommitTrans" And "Rollback With Data Environments
----- Original Message -----

From: shankar [ babu ]


Sent: Wednesday, February 26, 2003 12:24 PM
Subject: "BeginTrans" , "CommitTrans" and "Rollback with dataenvironments

hello everybody,
I am using data enviroment designer in my project.

I am getting error while using
"BeginTrans" , "CommitTrans" and "Rollback"
of the DataEnvironment 's connection properties

kindly let me know the solution
thanks in advance

Can Someone Guide Me On How To "PUT" A "CHECKBOX" Inside A "Datagrid" For VB6.0?
Can someone guide me on how to "PUT" a "CHECKBOX" inside a "Datagrid" for VB6.0?
please i need these to complete my program security....................for my thesis? please please!!Can someone guide me on how to "PUT" a "CHECKBOX" inside a "Datagrid" for VB6.0?

Combobox Help """""""""""""'Urgent"""""""&&quo
Hi Guys,,,,,,

This may be the stupid way.But i need this.................

   I am using combobox in my form. I set the style to Dropdown combo.

Here we can exter text in combobox b'coz of the style Dropdown combo.
But i don't want to allow user to enter ......allowed only to select.....

For that i can set the style to Dropdownlist.

But i don't want this style. B'coz i can't clear the text at run time.

Tell me if dropdown combo means, User shouldn't enter at runtime
Tell me if dropdown list means, how to clear the text at runtime...

Pls help me out.....Urgent

Plot A "y=mx + C" Graph??

Does anyway know where I can find a tutorial/advice on how to plot a straight line graph by just using the gradient and intersect values??? (y=mx+c)

Thanks for any help.

"BeginTrans" , "CommitTrans" And "Rollback With Data Environments
hello everybody,
I am using data enviroment designer in my project.

I am getting error while using
"BeginTrans" , "CommitTrans" and "Rollback"
of the DataEnvironment 's connection properties

kindly let me know the solution
thanks in advance

Insert In Table Certan Values That Are "LIKE%" Text1.text
How can I insert in table certan values that are "LIKE%" Text1.text ?

Here is code that I've written by now.

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)


Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Dim broj1 As String, mjesto1 As String

Set MyConn = New ADODB.Connection

MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:PekaraPodacipekara.mdb;"
MyConn.CursorLocation = adUseClient

Set MyRecSet = MyConn.Execute("Select * from Mjesta WHERE Mjesto LIKE '" & Text1.Text & "%'")

If MyRecSet.BOF = True And MyRecSet.EOF = True Then Exit Sub

sqlStr = "INSERT INTO Pregled_mjesta (Post_broj, Grad) Values (broj1, mjesto1)"

Do While Not MyRecSet.EOF

Picture1.Print MyRecSet.Fields.Item("Postanski_broj").Value _
& " " & MyRecSet.Fields.Item("Mjesto").Value

broj1 = MyRecSet.Fields.Item("Postanski_broj").Value
mjesto1 = MyRecSet.Fields.Item("Mjesto").Value

Debug.Print sqlStr

'Set MyRecSet1 = MyConn.Execute(sqlStr)
MyConn.Execute (sqlStr)




End Sub

it gives me error in line

MyConn.Execute (sqlStr)

and error is

Run-time error '-2147217904 (80040e10)':
No value given for one or more required parameters.

Please help me

Null Values Cause "Row Cannot Be Located..." Error When Updating Excel Via ADO.
I have been attempting to update an Excel spreadsheet using ADO. This seemed fairly straightforward at first. I set up a connection and then opened a recordset. I was able to display one record at a time on a form in text boxes and then began attempting to update the information displayed using the .update method. This all worked fine until a Null field was encountered or I deleted the contents of a field and then attempted to update it. (I was able to display fields that contained no value simply by using " if isnull(...) ....") The error message displayed by VB was...

"Row cannot be located for updating. Some values may have been changed since it was last read."

I know this sometimes occurs if a table does not have a primary key, but you cannot set up a primary key in Excel, I assume that the primary key is actually the row number.

It only occurs if a field has a null value or the value has been deleted before updating it. If I simply change the contents of the field to a different value all works properly

Any ideas?

How To "trigger" The Error And Write It To The Textbox [regarding Copy Command) (Help)
Code:Option Explicit
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long ' only used if FOF_SIMPLEPROGRESS, sets dialog title
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
' Available Operations
Public Const FO_COPY = &H2 ' Copy File/Folder
Public Const FO_DELETE = &H3 ' Delete File/Folder
Public Const FO_MOVE = &H1 ' Move File/Folder
Public Const FO_RENAME = &H4 ' Rename File/Folder
' Flags
Public Const FOF_ALLOWUNDO = &H40 ' Allow to undo rename, delete ie sends to recycle bin
Public Const FOF_FILESONLY = &H80 ' Only allow files
Public Const FOF_NOCONFIRMATION = &H10 ' No File Delete or Overwrite Confirmation Dialog
Public Const FOF_SILENT = &H4 ' No copy/move dialog
Public Const FOF_SIMPLEPROGRESS = &H100 ' Does not display file names

Dim abc As Boolean

Public Sub VBCopyFolder(ByRef strSource As String, ByRef strTarget As String)

    With op
        .wFunc = FO_COPY ' Set function
        .pTo = strTarget ' Set new path
        .pFrom = strSource ' Set current path
    End With
    ' Perform operation
    SHFileOperation op

End Sub

Private Sub Command1_Click()

Call VBCopyFolder("DONT_HAVE_THIS_FOLDER", "d: esting1")

End Sub

From above API, i purposely Call VBCopyFolder("D:DONT_HAVE_THIS_FOLDER", "d: esting1")
where D:DONT_HAVE_THIS_FOLDER is invalid path.. the VBCopyFolder function will not give me the error in message dialog box as i set the .fFlags = FOF_NOCONFIRMATION + FOF_SILENT. My question is i still want the .flags command (as it does not give me dialog message) but i would like to write the error to the textbox (so whenever i have tme i can see the error log from the text box"

Edited by - wtkm on 8/16/2007 6:08:47 PM

Using "save Copy As" In Excel To Overright Existing File
Hello, some basic info first.

I have a workbook which, has the..

and vba properties (locked for viewing)

all password protected, now in excel 2000, you cant lock
all of these and still save in the '.xls' format (or at least not after the initial first save)

so i have used the "savecopyas" function, and all works ok
until it encounters a file of the same name, I want it to overwrite it and it wont

can you guys look at my code and tell me what i need to add to get it to overwrite the existing file by default....or delete it first, as this is driving me up the wall and i must get it finished soon !! or will go mad

code ...

Private Sub savebook_Click()
Dim AlsWa As String
AlsWa = Sheets("1909").Range("C18").Text
Application.DisplayAlerts = False
MousePointer = vbHourGlass
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "" & "1909B " & AlsWa & ".xls"
Application.DisplayAlerts = True
End Sub


Excel"filename") Doesn't Return Excel Workbook
Hi experts,

I use the following code to open work book. Then would like to reference the excel work book using excelwrk variable.

I can't reference excelwrk as"c: est.xls") doesn't return any work book and Excelwrk is nothing.
I have no choice, have to reference worbook using excelapp.activework

Is there anything wrong with my code. Please advise. When I run application, there is no error. I am using Excel 8.0 object library.

Dim excelapp as Excel.Application
Dim excelwrk as Excel.Workbook
on error resume next

Set excelapp = GetObject(, "Excel.Application")
if err=429 then
Set excelapp = CreateObject("Excel.Application")
end if

Set excelwrk = excelapp.Workbooks.Open("c: est.xls")



Product "Activation" / Copy Prevention Advice
Ok, just looking for advice, as ive not needed to do this before.

The program that i have ben working on is for re-sale in costom equipment, however it will run on any pc... my question is, is there a way of making a program run ONLY on my costom hardware? or should i create some sort of serial based activation system?

maybe i could hard code the MAC address into the program and not run if it's not right??? (i will only be selling 5-10 units at a time, so that is a feasible posibility)

any advice would be appreciated!!!!

Printing Filtered Records From "copy Picture"
I have a worksheet called "Barcodes" that collects long lists of barcode entries. To reduce paper use for printing, I have used the "copy picture" function to create picture links to a worksheet called "Print" so that multiple columns can be printed on one page. The problem is the printout contains the maximum possible pages defined in the print area and not just the required pages. I have attached a screen shot as I'm not sure I have explained this properly The macro is as outlined below.
Thankyou for your time,

Sub Sort_Delete_Print()
' Sort_Delete_Print Macro
' This section sorts the data

YesNo = MsgBox("This will print your current list of barcodes." & Chr(13) & "Do you want to continue?", vbYesNo + vbCritical, "Caution")
Select Case YesNo
Case vbYes

Application.ScreenUpdating = False

' This section sorts the data

Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

' This section deletes duplicate data

Range("B2:B1001").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B2:B1001"), Unique:=True

' This section hides blank cells then prints the data

Selection.EntireRow.Hidden = True
Sheets("Print").Visible = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.Visible = False


Application.ScreenUpdating = True

MsgBox "Please collect your list of barcodes from the printer.", vbInformation, "Human Immunology Barcode Form Checks"

Case vbNo

MsgBox "Action cancelled", vbInformation, "Human Immunology Barcode Form Checks"

End Select

End Sub


Search The Complete "template" Copy && Record
as a newbe to excel, i have found this forum very usefull in obtaining information from looking at other posts or a helping hand, here is my question.
enclosed is a copy of a workbook i use for my small electrical bussness.

i have got some code that searches the workbook for any query that i input into a search box, got the code from fourm .
what i would like it to do after a search is done is to copy the results, complete row inc the colour of the cells ( for a referance to the original) and place them in the search sheet.
At the moment the result of a query goes into a box stating the cell ref i have got a sample of what i need, but is it possible.

open the wookbook and go to search tab


Code For "Copy, Paste" And Font For A New Message
I am designing a form for New Message similar to Outlook Express.For commands like "Copy","Paste","Cut" how to code for these? And also when I click Font in the menu that standard Font window having "Font", "Style", "Size" should be displayed.So how to code for this?
Any help will be grately appreciated. Thanks.

Internet Online Game "Copy All And Paste"
I got this project I am doing and it is a clac for a online game called Starkingdoms and in the game there is two frames a left frame with links for military stats and crap like that and what i want is say i am looking at the military page i want to make a buttong that automatically copies and pastes all the text from that page into a text box in my project. its only a small portion of my project but its the small portion I haven't found an anser to.

PLZ help

How To Make The Macro "print" More Values?
Hello there!
I wish to learn if there exists such a teqnique which has been born by my incessant mind.:) There is a macro, which is located in here.
The macro works perfectly and my thanks to its developers always accompany any notion of it. The macro is intended to maximize chosen cell and "print" that result with every loop of itself. My question is as follows - is it possible to make the macro post a few other cells which update with the macro but are not directly dependent on it like "maximize" cell. The number of such cells is stil uncertain so I will have to ask for an example of three - the rest i will try to add myself. So here are the "test" cell numbers coupled with their corresponding names(when printed - column headings) :
AA1 - "profit"
AA2 - "loss"
AA3 -- "income"
i would bring to your attention the fact that the column headings on the resultant page would be taken from the names of the above cells. I am hoping you can help me solve this problem and make this macro even better.
One MegaPascal of Thanks!:)
ps: one point to Mark - is it possible to make the tested values start from anything other than zero cos as far as i understand Const i_Max = 23 doesn't allow for tweaking of lower limit of this vale, ie. if it will be zero or four or one.

How Do You Handle "binary" Values In VB6 (strongem)
Ok, I'm an idiot.  How do you convert a string to a binary buffer?  I looked for a "binary" data type, but could only find "byte" which looks kinda small.  This is how I am thinking:

dim strMyString, strMyString2 as string
dim binMyString, binMyString2 as "binary"

strMyString = "MyData"

(pretending there is a function that converts strings to binary, like bin()...)

binMyString = bin(strMyString)  

vbEncrypt(binMyString, "MyEncyptionString")

(Store it as a binary in the registry....then)
(Retrieve it as binary in from the registry....)

vbDecrypt(binMyString2, "MyEncryptionString")

strMyString2 = str(binMyString2)

strMyString2 would contain "MyData"


Replacing Non-numeric Values In A String With ""
Hey everyone. I am trying to write a function to replace nonnumeric values in a string. I need any input anyone has. This being done in a functoid in BizTalk. Something like:

Function Replace NonNumeric (StrPassedIn, LengthOFStr)

Dim Counter1 as counter 'Counter used to count down until all characters been tested
Dim Var1 as string
Dim StrChanged as string
Set Counter1 = LengthOFStr
Do until Counter1 = 0
   *Need to get the 1st value of the string and test for Numeric. don't know how to get 1st value.
If (Value) isnumeric then
    Counter1 - 1
     How do I Increment to next value to be tested, here?
    Var1 = replace(StrPassedIn(I need the character Position here), ""))
     How do I Increment to next value to be tested, here?
    Counter1 - 1
NonNumeric = Var1
End If
End Function

"poll" About Your Parallel Port In Values
i've noticed that parallel port in values change depending on the computer. i'm trying to get a conclusion so i can make my program able to run on as many windows systems as possible, and i need your help

please, download that program: , which is called portmon.
it shows the current values in the parallel port.
would you mind copying here the following?

windows version (as many details as possible, including wether it's a professional edition, home edition, SP1, SP2, win98SE, etc)
the number placed in the cell(379, dec) (3rd row, 2nd column).

please, remember: don't do that test if you have any device plugged it, the values are different

thank you very much!

Business Objects "copy All" Question.
Not totally sure this is the right place for such a question - but I can only ask

I've come across a problem - writing a macro to "copy all" the information on a refreshed BO report, and paste it into Excel.

Then, from there, run an Excel macro from an Excel macro book on the data.

I write macros in Excel quite often, but this is my first journey into the world of VBA in BO, and I'm stumped as how to even start due to there being no macro recorder.

Any help is appreciated!

Can I Copy Recordsets With Rst.Save "file.xml", ..
I want to copy information between duplicate tables stored in different MDB files. For instance, MDB#1 and MDB#2 both have a "tblAccountBalances". I want to copy all the records from the first MDB into the 2nd MDB's table. I was hoping to use the Recordset.Save function to save the contents of MDB#1 into an XML file, open the XML up with another recordset connected to MDB#2 and then use Recordset.UpdateBatch. For some reason, I can't get this to work. Here is my sample code so far:

' Define the DB objects
Dim conn1 As New ADODB.Connection
Dim conn2 As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset

conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strDB1 + ";Persist Security Info=False"
rst1.CursorLocation = adUseClient
rst1.ActiveConnection = conn1
rst1.Source = "tblAccountBalances"
If Dir(strPath + "RST.XML") <> "" Then Kill (strPath + "RST.XML")
rst1.Save strPath + "RST.XML", adPersistXML

conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strDB2 + ";Persist Security Info=False"
rst2.CursorLocation = adUseClient
rst2.LockType = adLockBatchOptimistic
Set rst2.ActiveConnection = Nothing
rst2.Open strPath + "RST.XML"
Set rst2.ActiveConnection = conn2

Thanks for any help/suggestions:
Doug Davison

How Remove "vbCrLf" From Copy Text?

I make litle app. first i copy manualy from text file part of text what in multiline. Paste this in to textbox1 and now i try change this text multiline.
example old text wraped after 10 characters and i try change this to ~7
changed text show to the textbox2
Problem is this wraped now in old places and in the new places to. How i can before makeing new wrap remove old.
but without old wrap this need to be

this numbers only for example, i wraping text.

Export Table From MS Access To Outlooks Contacts "Standard Field" - With Conatct Item "Notes"
Export table from MS Access to Outlooks Contacts "Standard Field" - with Conatct Item "Notes" ...?

"Copy Code", "Paste Code"
Are there any types of codes that would let me cut, copy and paste files?

Inverted Commas In String "etc" && Variable && """
I need to include a double inverted comma in a string, here's some more detail...

MsgTitle = "RaceControl 2003"
MsgText = "Enter password."
rcvarValueString1 = InputBox(MsgText, MsgTitle)
rcvarValueString2 = "MS Access;PWD=" & rcvarValueString1 & """
Set dbRacecontrol = OpenDatabase("RaceControl2003.mdb", False, False, rcvarValueString1)

The last part of the Set statement needs to read "MSAccess;PWD=password" including the double inverted commas (where password is the password for the database). However, I want to make the user type in the password... I suppose what i've done so far is correct, but I don't know how to include the double inverted commas in the variable rcvarValueString2. The rest of the Set statement is definitely correct.

Thanks in advance,

Copyright © 2005-08, All rights reserved