How to use VB window to find the same as the text1, has been established in the EXCEL spreadsheet (D: \ T.x ls) in the data search, only to find A column, will look up to the data read VB window text2. In the text, if there is no the same data, then the data entry to EXCEL at the end of the table,

CodePudding user response:

Your description is clear enough, you just do as you say, what's not, not looking for a programmer to help you again!

CodePudding user response:

Dim openxd As String
Openxd="D: \ \ t xd. XLS"
The Set xlapp=CreateObject (" Excel. Application ") 'create Excel object
The Set xlBook=xlapp. Workbooks. Open (openxd) 'Open EXCEL artifacts book file
Xlapp. Visible=True 'set the EXCEL object Visible or invisible
Set xlSheet=xlBook. Worksheets (1) 'Set the current active working table sheet1

I wrote this wouldn't be writing,

CodePudding user response:

Lz is a robot?

Reply: the 2014-09-07 20:12:03 12 points at 8 o 'clock have the answer

2014-09-07: a 23:09:44 published 11 points and repeat the same for help information!

CodePudding user response:

refer to the second floor baidu_20517661 response:

Dim openxd As String
Openxd="D: \ \ t xd. XLS"
The Set xlapp=CreateObject (" Excel. Application ") 'create Excel object
The Set xlBook=xlapp. Workbooks. Open (openxd) 'Open EXCEL artifacts book file
Xlapp. Visible=True 'set the EXCEL object Visible or invisible
Set xlSheet=xlBook. Worksheets (1) 'Set the current active working table sheet1

It will not wrote, I wrote

Seems to operate Excel you don't, you can be in Excel to record a macro, reference to automatically generate code to write,