Re: ��Excel��VBA��ô��ļ��

Article View: cn.bbs.comp.database

Article #776

Back to cn.bbs.comp.database Previous Next

#776

From: Galaxy��VOLUNTEERS
Date: Sun, 02 Nov 2008 08:23

29 lines
1905 bytes

[code:vb]
Private Function OpenDialog() As String
Dim sFile As String
Dim n As Integer
sFile = Application.GetOpenFilename(��MS excel (*.xls), *.xls��) ����ȡ·��
n = Len(sFile) - InStrRev(sFile, ��\��) ����ȡ�ļ�title�ĳ���
tt = Right(sFile, n) ������ļ�title
End Function
[/code]

�μ�http://blog.jjuv.com/2008/03/02/vba-in-the-way-of-access-to-documents.html

�� �� aporba (wincky) �Ĵ������ᵽ: ��
: ��������BVA�������ļ��У���C:\Hello,Ȼ������ļ����д��ڵ��ļ��������һ��
: �����У�Ȼ��ͨ��ѭ����һ��һ���Ķ�ȡ
: �ؼ�����λ���ļ���
: �����ָ�㣡


--
I thought what I'd do was, I'd pretend I was one of those deaf-mutes
Or should I?

You know what I��d like to be? I mean if I had my goddam choice, I��d just be
the catcher in the rye and all.

[m[1;32m�� ��Դ:����ˮ˼Դ bbs.sjtu.edu.cn��[FROM: 207.46.55.28][m

[1;36m�� �޸�����:��Dem �� 11��02��16:23:50 �޸ı��ġ�[FROM: 207.46.55.28][m

Technical Details

Message-ID: <4cgETG$amg@bbs.sjtu.edu.cn>

Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!feeder.news-service.com!news.isoc.lu!news.shec6.edu.cn!SJTU

Show Full Headers

Complete Article Headers

X-Google-Thread: 101948,7ffb5fc1f45819a0,start
X-Google-Attributes: gid101948,domainid0,public,usenet
X-Google-Language: Chinese,GB
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!feeder.news-service.com!news.isoc.lu!news.shec6.edu.cn!SJTU
From: Dem.bbs@bbs.sjtu.edu.cn (Galaxy��VOLUNTEERS)
Newsgroups: cn.bbs.comp.database
Subject: Re: �����Excel������VBA��ô����ļ���
Date: 02 Nov 2008 08:23:51 GMT
Organization: ��ˮ˼Դ
Message-ID: <4cgETG$amg@bbs.sjtu.edu.cn>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: database/M.1225614208.A

Article View: cn.bbs.comp.database

Re: �����Excel������VBA��ô����ļ���

Re: ��Excel��VBA��ô��ļ��