ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   File Open Dialog (https://www.excelbanter.com/excel-programming/311753-file-open-dialog.html)

scantor145[_3_]

File Open Dialog
 

Visual basic 6.0 w/Excel 2000

Below is a section of code I use to open up a specified number o
files.


Code
-------------------
For N = 1 To NumFiles

FilterList = "Text Files(*.txt),*.txt"

With Application
MyFile(N) = .GetOpenFilename(filefilter:=FilterList)
End With

Next
-------------------


99.9% of the time the files in the File Open dialog box are listed i
the order in which I select them. When the File Open dialog box open
for the first time, and every time after that, the first file in th
list is always highlighted. Is there a way to have to have VB6 move th
highlight down a file(s) after each File Open execution

--
scantor14
-----------------------------------------------------------------------
scantor145's Profile: http://www.excelforum.com/member.php...fo&userid=1476
View this thread: http://www.excelforum.com/showthread.php?threadid=26432


Dave Peterson[_3_]

File Open Dialog
 
You might be able to do something with sendkeys, but I would think that would be
close to disasterous!

Maybe you could just select all the files you want with one File|open:

Option Explicit
Sub testme2()

Dim myFileNames As Variant
Dim iCtr As Long

myFileNames = Application.GetOpenFilename _
(filefilter:="Text files, *.txt", MultiSelect:=True)

If IsArray(myFileNames) Then
'keep going
Else
Exit Sub 'user hit cancel
End If

For iCtr = LBound(myFileNames) To UBound(myFileNames)
'do your stuff
Next iCtr

'....

End Sub

===
when that file|open dialog is displayed, you can click, ctrl-click, and
shift-click to get a bunch.

scantor145 wrote:

Visual basic 6.0 w/Excel 2000

Below is a section of code I use to open up a specified number of
files.

Code:
--------------------
For N = 1 To NumFiles

FilterList = "Text Files(*.txt),*.txt"

With Application
MyFile(N) = .GetOpenFilename(filefilter:=FilterList)
End With

Next N
--------------------

99.9% of the time the files in the File Open dialog box are listed in
the order in which I select them. When the File Open dialog box opens
for the first time, and every time after that, the first file in the
list is always highlighted. Is there a way to have to have VB6 move the
highlight down a file(s) after each File Open execution?

--
scantor145
------------------------------------------------------------------------
scantor145's Profile: http://www.excelforum.com/member.php...o&userid=14766
View this thread: http://www.excelforum.com/showthread...hreadid=264329


--

Dave Peterson



All times are GMT +1. The time now is 03:09 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com