【求教】用VB6实现对文件处理针对excel文件 - 编程论坛

#2

Artless2012-02-09 23:58

问题？

#3

Monster362012-02-10 08:04

回复 2楼 Artless

你好，问题是要打开excel这种文件好像要用ShellExecute吧，下面是我在网上搜到的

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "C:\1.PPT", "", "", 1 '打开文件C:\1.PPT
End Sub

我想知道ShellExecute里面指定的文件路径可不可以是变量？因为我要处理大量excel文件，而文件名是有规律的，比如‘2012年2月10日_上海数据’我可不可以把日期和地点变成变量，如“a年b月c日_d数据”而变量由软件窗体赋给变量

#4

Artless2012-02-10 20:41

lpFile As String

#5

wube2012-02-11 00:56

Private Sub Command1_Click()
lpFile As String
A as bool
lpFile ="C:\"
......
for each FileObj as FoldrObj
    if ((instr(FileObj.Name,"年")<>0) and (instr(FileObj.Name,"月")<>0) and (instr(FileObj.Name,"日")<>0) and (instr(FileObj.Name,"数据")<>0)) then
        A=ShellExecute( Me.hwnd, "open", FileObj.Name, "", "", 1 '打开文件FileObj.Name)
        if A<>0 then
            .......
        endif
    endif
next
End Sub

不依序～但符合条件的都会处理～有点忘了耶～
我这没VB～缺的要自己兜～大概这感觉吧～
还有这API参数好怪～一定是错的～

[ 本帖最后由 wube 于 2012-2-11 00:58 编辑 ]

#6

sifumu012012-03-22 20:43

看不懂

#7

sunqiu5462012-03-23 10:28

看不太明白