|
i did it but no effect.
Still i have same problem
Please help me
|
|
|
|
|
In that case then if i were you i would stick a breakpoint in at the start and then step through the code line by line until you find exactly where the code is failing.
|
|
|
|
|
Ok i check it through break point.You are right first i check then i post question in forum.
I got where is error.
When i click on Open button then Cursor goes into step by step when cursor came into this line
Set xlBook = xl.Workbooks.Open(FileName:=ExcelFile, _
Password:=ExcelPassword)
Then Message show password is wrong.As we know i use for loop when cursor goes into second time in line
Set xlBook = xl.Workbooks.Open(FileName:=ExcelFile, _
Password:=ExcelPassword)
Then run time error message show.
Please help me
|
|
|
|
|
[Edit2: Original did work, sorry]
Sub Button1_Click()
Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook
Dim ExcelFile As String
Dim ExcelPassword As String
Dim i As Integer
ExcelFile = "C:\Users\Dave Auld\Desktop\password_test.xlsx"
Set xl = CreateObject("Excel.application")
xl.Visible = False
On Error Resume Next
For i = 1 To 6
ExcelPassword = "ABC" + CStr(i)
Set xlBook = xl.Workbooks.Open(Filename:=ExcelFile, Password:=ExcelPassword)
If Err.Number > 0 Then
MsgBox "Error: " + Err.Number + ": " + Err.Description, , "Error"
Err = 0
Else
MsgBox "File Opened with Password " + ExcelPassword
Exit For
End If
Next i
xl.Quit
End Sub
Dave
Don't forget to rate messages!Find Me On: Web| Facebook| Twitter| LinkedInWaving? dave.m.auld[at]googlewave.com
modified on Monday, May 17, 2010 6:51 AM
|
|
|
|
|
Thanks you solve my problem.
Sorry for late response
Once again Thanks.
|
|
|
|
|
Your welcome, glad you got it working now.
|
|
|
|
|
What environment are you using? If VB.NET, then you should have a lot of compiler errors anyway...
- You declare a workbook named "xlwbook" and refer to it as "xlbook"
- Declare your i integer inside the procedure
- You declared xl twice (7 instances of Excel running!). If you Dim xl as New Excel.Application that's enough. You shouldn't create a new instance of the Excel object every time your loop runs.
- In .NET you wouldn't need a conversion class. ExcelNword = CStr(i) is enough.
- You should also rather use good old Try... Catch instead of OnError
I gave it a test in VB.NET with then enclosed changed code. Good luck with your further experiments
Michael
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Dim xl As New Excel.Application
Dim xlwbook As Excel.Workbook
Dim ExcelFile As String
Dim ExcelPassword As String
Dim ExcelNword As String
Private Sub btnStart_Click() Handles btnStart.Click
xl.Visible = False
ExcelFile = "D:\" + "text.xls"
For i = 1 To 6
Try
ExcelNword = CStr(i)
ExcelPassword = "ABC" + ExcelNword
xlwbook = xl.Workbooks.Open(Filename:=ExcelFile, Password:=ExcelPassword)
MsgBox(String.Format("Workbook could be opened with password {0}", ExcelPassword))
Catch ex As Exception
If Err.Number = 1004 Then
MsgBox(String.Format("'{0}' is the wrong password!", ExcelPassword), , "Error")
Else
MsgBox(String.Format("Fehler {0}: {1}", Err.Number.ToString, Err.Description), , "Error")
End If
End Try
Next i
xl.Quit()
xlwbook = Nothing
xl = Nothing
End Sub
End Class
modified on Monday, May 17, 2010 7:06 AM
|
|
|
|
|
I'd say the problem in this code is that you don't increment the name of the file. You set it to "D:\Users\Test\Desktop" + "\test1.xls"
So, it would work the first time, but on the second iteration, it would be comparing the password for workbook 2 with workbook 1.
Did you mean to write:
ExcelFile = "D:\Users\Test\Desktop\test" & i &".xls"
|
|
|
|
|
I don't think he was wanting to increment the file name, but test a sequential number of passwords against the file to find the correct one.
Going by his other post in response to my code listing, the problem is now fixed, so he is a happy bunny.
Cheers,
|
|
|
|
|
Well if that's what he was trying to do, it sure wasn't clear. Why would you open it and if it didn't open, just display the error message? Why display a message at all if it didn't open? You only need to know the correct password, not the incorrect ones. That was very strange code to try to break a password.
|
|
|
|
|
agree, but he's happy!
|
|
|
|
|
Hey Guys,
to first: Sorry for my bad english !!
I have found nothing suitable, despite gegoogle. But maybe someone knows of you the problem.
I have run a VB.Net 3.5 - App with Interbase 6.1. As ADO driver do I use "Firebird ADO.NET Data provider for. NET and Mono 1.7" from
Sean Leyne. (This driver also works with Interbase.)
Now I wanted to switch to Firebird 2.1. The change in the database has
even if folded. All domains, triggers, etc. run from DB.
With my SQL-Console (IB-Expert) can also easily edit the database.
The Connection String is also true:
<Password = masterkey; Database = C: \ XYZ \ DB.FDB; Dialect = 3; User Id = SYSDBA; Data Source = localhost; charset = ISO8859_1>
<br />
...<br />
Public myDataConn As New FbConnection<br />
Public myDataConnString As New FbConnectionStringBuilder<br />
myDataConn.ConnectionString = "Password = masterkey; Database = C:\XYZ\DB.FDB; Dialect = 3; User ID = SYSDBA; Data Source = localhost; charset = ISO8859_1"<br />
myDataConn.Open()<br />
...<br />
But I get the Open() an error message that I do not
can understand .
Error message
"Offset and length of the array are out of range, or
the number is greater than the number of elements from index to end of
Source collection. "(Error Target: Void BlockCopy (System.Array, Int32,
System.Array, Int32, Int32)
With Interbase 6.1 is full working and no problems.
Does anyone know of the problem or you have a tip for the solution?
Thank you in advance for your help
Frank
|
|
|
|
|
You shouldn't post in more than one forum, it is bad form.
You will be answered quicker and better in Quick Answers as it is a specific question.
Thanks.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
if im being honest never used firebird before but i always double check my connection strings on this site connection strings i've looked and they have a firebird section too
Marc Clifton wrote: That has nothing to do with VB. - Oh crap. I just defended VB!
|
|
|
|
|
Hi,everyone!I need some help about "find" in excel with vb.net.I want to find a text like "name" in each sheet's range(j5:l5),if it found "name" in such range,then exports data from range(J5:Q12) to other sheet.I don't know whether the function "find" could do this,or I need wrote function myself?
Please give me suggestion and help me !THX!
|
|
|
|
|
Try this[^] link. Might help.
|
|
|
|
|
Good Link
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
hey guys..i want to make a vb.net program to let users control a machine arm to draw on a paper based on what he draw in the program form.
basically i want to design a control form with small dots on it(grid)
and every dot represent a coordiantion point of my machine
and a drawing function provide to user to draw anything on the dots,after that the machine can move to specified location based on the dots being link/draw by user.
so first..how can i make small dots on a vb.net form?
second...how can i provide a control button for user to draw line or input text on that form?do i need shape powerpack or something??
third...how can i detect the dots(which represent the coordinates) that had been link/draw by users?
|
|
|
|
|
If you are a beginner then this as a starting project is way too much.
I would suggest you start by searching the CodeProject articles relating to vb.net graphics winforms.
|
|
|
|
|
ok maybe i redim my question.
i know how to draw line and other shape by using code or just on the form.
but i can only provide the drawing function to user by means of point input(means users have to type in the shape points ).
but now i wan to know how to make a function for user to draw without input the points,they can just draw anything they want on the form just like wat we do in the window paint program.i had search the forum but no luck to me...
thx for the reply....
|
|
|
|
|
|
wao...thx so much!!!
i think i can solve the text and shape input problem now.
just another question..
lets say if user alredi draw on the form..
after he finish his drawing..how can i detect on which coordinations he draw on?
(for example:user draw a line at start point(1,1) to (10,10)..is that a way to detect the coordinations of the line where it pass through(smallest coordiantion is 1)??)
|
|
|
|
|
i can only found the starting point and end point...
anyway to get the whole coordination points??
|
|
|
|
|
yes, start with something simpler. And I would suggest you buy and study a book on VB.NET; it will teach you a lot you need, a lot you don't even know you need, and some good practices.
And to draw a dot, you probably want Graphics.DrawEllipse() .
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
Hi,
I have a program converted to VB.NET 2005 from VB6.
I uses control arrays extensively.
I am having a problem the the dtpicker control (AxMSComCtl2.AxPickter)
I frequently get 'not legal oledate' and other errors when accessing the control (reading or writing). We have controls just for short date and time i.e.
dtpFromLast and dtpFromLastTime
using
s = cstr(frm.dtpFromLast).value
or _value
or
frm.dtpFromLast.value = today
or
frm.dtpFromLast.time = now
Sometimes it works sometimes not.
The form in question is not always in focus and may not be visible (sometimes fails even when visible). It is a settings screen and not the screen where the work is being done.
Please just do not tell me to use another control as the windows date time control without some background explanation.
Thanks
modified on Monday, May 17, 2010 3:32 PM
|
|
|
|