VBA Forum RSS Feed (Replies Included)

Re: Undo-stack in Word 2007

Mon, 16 Nov 2009 08:45:26 -0700

Hi.

Have you found a solution?

Alexey

.exe in vb6

Fri, 13 Nov 2009 11:39:27 -0700

hi,
plz let me know,how to make an .exe file in vb6.

what is web extraction tool

Tue, 10 Nov 2009 03:48:00 -0700

Web Data Extraction is a type of information retrieval that can automatically extract structured information from unstructured or semi-structured web data sources. Learn more

Financial Data * Real Estate Data * Product Pricing Data * Duplicate an online database * Dynamic Web Content * Create Innovative New Services * Sales Leads * Capture Dating Site Info * Capture Auction Info * Capture Job Postings from Online Job Websites, and more. Click here for sample projects
----------------------------------
http://www.e-datapro.net

what is web extraction tool

Tue, 10 Nov 2009 03:46:23 -0700

Microsoft Word Macros and Styles

Wed, 04 Nov 2009 14:32:58 -0700

I'm trying to import the styles I have in Word 2003 into Word 2007, so that the macros I've already imported will work. I can manually create the styles in 2007, but that takes a lot of work. Does anybody know how to transfer custom styles from 2003 to 2007?

Re: Excel with Media Player

Sun, 01 Nov 2009 01:25:57 -0700

Please take a look this application that I call VBA MP3 Player.
This may not answer your question, but I hope this program could show you how I use Visual Basic Application (VBA) features in Ms. Office or Ms. Excel application to create a MP3 Player like WinAmp by Ms. Excel through Ms. Excel macro.
Please download the program from this site :
http://wl.filegenie.com/~Rusdi/VBA-MP3-Player.xls
Set security level of Ms. Excel macro to Medium before running the program.

Programming a user form

Mon, 26 Oct 2009 15:11:01 -0700

Hi there,

I have a user for which i would like to have get information from a cell in another sheet. The below code does not seem to work. it loads but no information from the cell range?

Private Sub PPMB1()
UserForm1.Show
TextBox1 = Worksheets("Database").Range("A4")
TextBox2 = Worksheets("Database").Range("B4")
TextBox3 = Worksheets("Database").Range("S4")
End Sub

thanks
Runner77

VBE Outlook Error

Wed, 14 Oct 2009 12:54:47 -0700

After I developed an outlook macro the visual basic editor always pops up when I log back into my coputer - no matter if I had it or outlook open when I logged off. It's annoying!

VBA to find FOLDER last modified date

Thu, 08 Oct 2009 14:07:39 -0700

Hello,

I am trying to write a Macro that lets me select a directory and will return the last time a folder has been modified, created, accessed, etc.

I'm not very familiar with VBA, but if someone could let me know if it's possible to write such a code and if they could provide me with instructions for how to insert the macro it would be much appreciated.

Thanks and Regards,
FL

Runtime Error 5: Invalid procedure call or argument

Tue, 06 Oct 2009 22:37:20 -0700

Hi all,
I am trying to extract the texts from a web page and write it to a text file.
I am able to read the text by using internetexplorer.application but when I try to write it to the notepad sometimes it gives Runtime Error 5: Invalid procedure call or argument.
Microsoft VB Help says that it happens bcoz of "An argument probably exceeds the range of permitted values."

Can someone help me to get rid of this problem.

Thanks in advance.

The code..

Sub GetTextFromIe()

Dim NPOFile$, myFile$
Dim ie As Object, objDoc As Object, f As Object, fs As Object
Dim strURI As String

strURI = "www.google.com"

Set ie = CreateObject("internetexplorer.application")
ie.Navigate strURI

'Wait for page to load!
Do
If ie.ReadyState = 4 Then
ie.Visible = False
Exit Do
Else
DoEvents
End If
Loop

Set objDoc = ie.Document

strMyPage = objDoc.body.innerText


'Use this Text file!

Dim FileSave
FileSave = Application.GetSaveAsFilename("Contents-" & Format(Date, "dd-mm-yy") & "-" & Format(Time, "hh") & "-" & Format(Time, "nn") & "-" & Format(Time, "ss"), "Text Files (*.txt),*.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(FileSave, True)
myFile = FileSave

NPOFile = "NotePad.exe " & myFile

'Work with file [Append Text to File].
f.Write (strMyPage)
f.Close

'Open NotePad with a data file!
ActiveSheet.Select

Call Shell(NPOFile, 1)

Set objDoc = Nothing
Set ie = Nothing
End Sub

The line f.Write (strMyPage) gives me the error.

cheap jumpman Team pro Basketball shoes,gucci sneakers,lacoste trainer

Wed, 30 Sep 2009 06:13:26 -0700

cheapest Jordan Michael Jackson Memorial Shoes ( www.shoeshive.com )
cheapest Air Jordan Shoes( www.shoeshive.com )
cheapest nike shoes,sneakers( www.shoeshive.com )
cheapest nike kid,women shoes ( www.shoeshive.com )
cheapest Jordan Force Fusion shoes,( www.shoeshive.com )
cheapest Air Max Shoes LTD, ( www.shoeshive.com )
cheapest nike air max 92 shoes ( www.shoeshive.com )
cheapest nike air max 5K SHOES ( www.shoeshive.com )
cheapest Nike Shox Shoes R4 OZ TN, ( www.shoeshive.com )
cheapest Air Force Ones ,( www.shoeshive.com )
cheapest NIKE Dunk SB Shoes ,( www.shoeshive.com )
cheapest air jordan 1-25 shoes, ( www.shoeshive.com )
cheapest air jordan six Ring ( www.shoeshive.com )
cheapest jordan Melo, M4 shoes,( www.shoeshive.com )
cheapest jordan Olschool shoes,( www.shoeshive.com )
cheapest jordan True Flight 45 shoes,( www.shoeshive.com )
cheapest nike shox R3 R4 TN NZ OZ ( www.shoeshive.com )
cheapest nike Shox Monster Shoes( www.shoeshive.com )
cheapest nike air yeezy shoes,( www.shoeshive.com )
cheapest nike air zenyth shoes ( www.shoeshive.com )
cheapest nike Air Huarache Burst93 shoes ( www.shoeshive.com )
cheapest nike max skyline Running sneakers.( www.shoeshive.com )
cheapest jordan jumpman elite1 basketball shoes( www.shoeshive.com )
Jordan Jumpman Team Pro Basketball Shoes( www.shoeshive.com )
cheapest nike all star basketball shoes ( www.shoeshive.com )
cheapest Nike Air Max Free 5.0 Sneakers ( www.shoeshive.com )

All product top quality with right price, if you interested in our product, please contact us at:

Website: http://www.shoeshive.com
Mail : shoeshive@yahoo.com.cn
MSN: shoeshive@hotmail.com

VBA-Excel: how can i make objects of moving ranges ?

Thu, 24 Sep 2009 06:41:33 -0700

Hi guys,

I am writing (trying to write) a program in VBA (Excel 2003) and I got stuck. I need your help please.

HERE IS A DESCRIPTION OF WHAT I WANT TO DO
I have an excel range where the upmost cell is initially fixed and the downmost cell moves down as more data arrive.
I have something like WorkRange = Range((1,1), (LastRow.Row,1)).
That range contains integers. I call LastValue.value the value of the integer in cell (LastRow.Row,1).
Over this range I calculate the maximum value (MaxVal.Value) and the difference between LastValue.Value and MaxVal.Value.
So far it's (almost) easy, even for me.

The problem is, when the difference between LastValue and MaxVal satisfies a certain condition ( ie LastValue-MaxValue<z; z=constant) I need to move down the upmost cell in the WorkRange, so that it is set to coincide with the cell where the MaxVal is.
After that the program should me made to loop.
Normally the data series would be 40k rows long, but it could get 500k rows long I am afraid.

POSSIBLE SOLUTION ?
IN THEORY I have an idea of how I can solve this problem but I do not know how to do it practically with VBA.

I thought that maybe I could define the upmost cell of the WorkRange as a Cell-object.
For example I could call it StartCell1. The WorkRange would then be:
WorkRange=Range(StartCell1,(LastRow.Row,1)).
StartCell1 would be the first cell where I have data.

When condition ( LastValue.Value-MaxValue.Value<z) is satisfied I could write the program to create a Cell-object called LastCell1 that would be the first cell where the condition is satisfied.
I would also create a Cell-object called MaxVal1, that would be the cell where you find the maximum value in the range up to that point.
Finally I could also create a Range-object called WorkRange1=Range(StartCell1,LastCell1).

Done that I could create a new Cell-object, call it StartCell2 , and set it to have the same properties of Cell-object MaxVal1.
At that point the WorkRange would be WorkRange=Range(StartCell2,(LastRow.Value,1)) and I could loop the program repeating the above.

Does this make sense ?

HOW YOU CAN HELP ME
I think one of my problems is that I am so inexperienced with programming syntax that it is very difficult for me even to know where to look in books and what keywords/commands to look for. I have 3 manuals sitting in front of me: 3700 pages in total, a bit depressing
You can help me in many ways. Please answer some of my questions, if you do not mind:
0) am I on the right forum ? If not, what forum should I post to ?
1) does the "strategy" I outlined above make sense or should I use another approach ?
2) where should I look in a manual to implement my solution/your solution ?
Any key word I should look for ?
If you can scribble a couple of code lines in your reply that would help.
Probably my problem/questions are naive but can anybody please help ?

Thank you in advance
Frank

( WWW.Sneakers2World.COM ) Nike Air Max 90 Kids Shoes

Tue, 22 Sep 2009 10:19:13 -0700

( WWW.Sneakers2World.COM ) Nike Air Max Light Mens Trainers

( WWW.Sneakers2World.COM ) Nike Air Max Stab Mens Trainers

( WWW.Sneakers2World.COM ) Nike Air Max 90 Mens Running Shoes

( WWW.Sneakers2World.COM ) Nike Air Max 90 Mens Boots

( WWW.Sneakers2World.COM ) Nike Air Max 90 Womens Running Shoes

( WWW.Sneakers2World.COM ) Nike Air Max 90 Kids Shoes

( WWW.Sneakers2World.COM ) Nike Air Max Classic BW Mens Running Shoes

( WWW.Sneakers2World.COM ) Nike Womens Air Max Skyline

Tue, 22 Sep 2009 10:18:20 -0700

( WWW.Sneakers2World.COM ) Nike Womens Air Max Skyline

( WWW.Sneakers2World.COM ) Nike Air Zenyth Womens Sneakers

( WWW.Sneakers2World.COM ) Nike Air Zenyth Mens Sneakers

( WWW.Sneakers2World.COM ) Nike Air Max Tailwind 2010

( WWW.Sneakers2World.COM ) Nike Air Max Classic BW Mens Running Shoes

( WWW.Sneakers2World.COM ) Nike Air Structure Triax 91 Womens Running shoes

( WWW.Sneakers2World.COM ) Nike Air Max Tailwind 92 Mens Running Shoes

(WWW.Sneakers2World.COM) Nike Sportswear Nike Air Max 1,aka Nike Air M

Tue, 22 Sep 2009 10:16:36 -0700

(WWW.Sneakers2World.COM) Nike Sportswear Nike Air Max 1,aka Nike Air Max

(WWW.Sneakers2World.COM) Nike Air Max 1 OG

(WWW.Sneakers2World.COM) Nike Air Max 1 Original Quickstrike

(WWW.Sneakers2World.COM) Patta x Nike Air Max 1 Trainers wholesale

(WWW.Sneakers2World.COM) Patta x Nike Air Max 1 Premium Tier Zero Holiday 2009

(WWW.Sneakers2World.COM) Nike Air Griffey Max 1 in black/white/red

Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Nike

Tue, 22 Sep 2009 10:14:44 -0700

Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Nike Air Force One Low
Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Nike Air Force One High
Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Light Up Nike Air Force One
Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Obama Custom Air Force One
Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Nike SB Dunk Low
Accept Paypal ( WWW.Sneakers2World.COM ) cheap discount wholesale Nike SB Dunk High

Accept Paypal ( WWW.Sneakers2World.COM ) wholesale Creative Recreation

Tue, 22 Sep 2009 10:12:12 -0700

Accept Paypal ( WWW.Sneakers2World.COM ) wholesale Creative Recreation DICOCO Mid

Accept Paypal ( WWW.Sneakers2World.COM ) wholesale Creative Recreation CESARIO LO

Accept Paypal ( WWW.Sneakers2World.COM ) cheap Creative Recreations Dio High Boots

Accept Paypal ( WWW.Sneakers2World.COM ) discount Creative Recreation Lucky Luciano

( WWW.Sneakers2world.COM ) Paypal Accept wholesale nike air max 2009 T

Tue, 22 Sep 2009 10:10:36 -0700

( WWW.Sneakers2world.COM ) The Nike Air Max 2009 running shoe ( also call Nike Air Max + 2009 ) for men is made by china Nike Factory and available for purchase online now.

( WWW.Sneakers2world.COM ) Free shippin for all Nike Air Max 2009+ series,Nike Air Max 2009+ for Sell, Nike Air Max 2009+ special edition.pricing and availability here. Visit our active Nike Air Max Shoes forum!

( WWW.Sneakers2world.COM ) Nike Air Max 2009+ sneakers, Nike Air Max 2009+ shoes, Cheap Nike Air Max 2009+ series Sale Online!

( WWW.Sneakers2world.COM ) Paypal Accept wholesale nike air max 2009 Trainers

www.silverelegance4u.com - 70% off top designer jewellery

Mon, 21 Sep 2009 08:24:05 -0700

Cheap Tiffany & co ( www.silverelegance4u.com )
Cheap Gucci ( www.silverelegance4u.com )
Cheap Links of London ( www.silverelegance4u.com )
Cheap Pandora ( www.silverelegance4u.com )
Pandora Jewellery ( www.silverelegance4u.com )
Tiffany & co Jewellery ( www.silverelegance4u.com )
Gucci Jewellery ( www.silverelegance4u.com )
Links of london Jewellery ( www.silverelegance4u.com )
Links of london Charms ( www.silverelegance4u.com )
Pandora charms ( www.silverelegance4u.com )
Gucci necklace ( www.silverelegance4u.com )
Gucci earrings ( www.silverelegance4u.com )
Gucci Pendant ( www.silverelegance4u.com )
Gucci Bracelet ( www.silverelegance4u.com )
Gucci Cufflinks ( www.silverelegance4u.com )
Links of london Bracelet ( www.silverelegance4u.com )
Tiffany & co Necklace ( www.silverelegance4u.com )
Tiffany & co Pendants ( www.silverelegance4u.com )
Tiffany & co Bracelets ( www.silverelegance4u.com )
Tiffany & co bangles ( www.silverelegance4u.com )
Tiffany & co earrings ( www.silverelegance4u.com )

Really need help

Tue, 15 Sep 2009 06:28:52 -0700

I am working an assignment which is a Sports Day Enrollment system for secondary school.
I have simply 3 tables:

Student(Sid,class,clsNon,Sname,dob,House)
Event(Eid,Ename,Grade)
Enrollment(Enid,Sid,Eid)

Grade A>=16 B=14-15 C<=13
But my assumption is that each student can only apply for 3 events.
How can I display the corresponding events for the student to choose and limit his choices to 3?
Can anyone help me? I am frustrated of failing to make it out.I am using Access 2003.
Thanks a lot!!!

NEW!! wholesale new style shoes Clothes jeans,t-shirts,handbag,sunglas

Sun, 13 Sep 2009 04:34:41 -0700

libray system

Wed, 09 Sep 2009 07:10:59 -0700

hi i am a 4th year student and we are having a project in software engineering, it's about a library system and i can't make it due to lack of design and code but i know how to connect it in database...can you help me how to make a library system? though in my thesis, we are developing HRIS.

Conditional Formatting

Sun, 06 Sep 2009 17:49:34 -0700

http://www.4shared.com/file/130743950/c58745ec/Winter_options2. html

I don't begin to understand VBA but i did find the attached file which i think could be modified for what i need.
in the winter_options file i need to be able to - in the calender part - know the date and then refer to the top part where the dates are.
i want to be able to change the number of days and have the color change in the calender.
on all 5 columns!
so i need 8 conditional formats on the calender dates.
one for each of the 8 options above it.
so when i say 5 days goin down the forst 5 days will have say a black font or better still a unique background color and so forth.
so where i am is shown in color in the calender.
thanks all

PS ask the Captcha folks not to include "0" and "o"

Attachment: Conditional Formatting.xls (18944 bytes | downloaded 23 times)

Get Child Window Name

Fri, 04 Sep 2009 07:02:39 -0700

Guys,

I have a problem that I'm trying to solve throw various forums here in Brazil but I got no answer yet...

I'm using the code below to get the name of the main window of my company's system. The code is working well but I just can't adjust the code to get the Child windows names from the main window.

What I need is:
_Get the name of the child window
_Identify if the window is activated
_Locate the child window by searching for it's name.

Any of the options above will solve my problem!

This is the code I'm using to get the name of the main window:

'Declaring
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Const MF_BITMAP = 4
Const MF_CHECKED = 8

'Sub to obtain the name of the main window:

Sub Obtain_The_Name_of_Main_Window()
strClassName = Space(256)
strActiveWinTitle = String(256, Chr$(0))
lngActiveWin = GetForegroundWindow()
lngRet = GetClassName(lngActiveWin, strClassName, 256)
strClassName = Left$(strClassName, lngRet)
GetWindowText lngActiveWin, strActiveWinTitle, 256
strActiveWinTitle = Left$(strActiveWinTitle, InStr(strActiveWinTitle, Chr$(0)) - 1)
Nome_da_janela_principal = strActiveWinTitle
End sub

Best regards,

Tarcisio

Unable to close file

Wed, 02 Sep 2009 11:11:57 -0700

Hi,

I am trying to close a file(say File A) which was opened to read data.after reading some column values from File A,one row at a time,i copy that line to another file(active file from where i called the File A).once all the lines are read and written,i try to close File A
using
Workbooks(A).Close savechanges:=False , but this gives error as "Subscript out of range"

Attaching code.

Please help.

Thanks.

Regards,
Krishna

Attachment: PAP.doc (43008 bytes | downloaded 19 times)