查看: 7277|回复: 7
如何获取某目录（包括子目录）所有文件并记录每个文件的路径和名称（含拓展名）？
阅读权限150
在线时间 小时
结帖率： (11/11)
是这样的啊，我这硬盘有很多的东西，有时候重要的文件都找不到了，我这不寻思有没有办法能获取到一个目录（或整个盘符）里面的所有文件并生成一个路径和文件名的记录（然后我只需要Ctrl+F就可以大概的搜一下有木有我的文件了），文件路径+文件名+拓展名，如果还能用记事本打开每个文件 搜索里面的内容 就更完美了。（当然，EXE INI 这种的需要跳过。。）
补充内容 ( 16:19):
=.=你们都知道命令，但是我需要的是完成我上面描述的效果，光靠一个命令我就给你们最佳，有刷荣誉的嫌疑啊！你们谁给做个例程我就采纳谁吧，就当给你们温习模块使用方法了。
最佳吧！！！
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限90
在线时间 小时
签到天数: 2 天结帖率： (3/3)
最佳吧！！！
16:38 上传
点击文件名下载附件
1.76 KB, 下载次数: 878
热心帮助他人，荣誉+1，希望继续努力(*^__^*) 嘻嘻!
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
签到天数: 1 天结帖率： (0/1)
精易模块 文件_搜索（）
文件_枚举()
补充内容 ( 16:15):
文件_搜索 (&欲寻找的目录[文本型]&, &文件类型[文本型]&, &文件名包含的关键字[文本型]&, &显示标签[标签]&, &加入的列表框[列表框]&, &是否带路径[逻辑型]&)
您可以选择打赏方式支持他
阅读权限30
在线时间 小时
结帖率： (17/28)
系统自带搜索可以达到你的要求。。嘿嘿
您可以选择打赏方式支持他
阅读权限150
在线时间 小时
结帖率： (11/11)
精易模块 文件_搜索（）
文件_枚举()
好久没来论坛了 精易模块这么强大了啊！
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
签到天数: 1 天结帖率： (0/1)
好久没来论坛了 精易模块这么强大了啊！
只有你想不到。没有做不到
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (5/5)
沙发正解。
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
结帖率： (5/5)
(124.51 KB, 下载次数: 111)
18:09 上传
点击文件名下载附件
这里面有如何获取的代码
您可以选择打赏方式支持他
精易论坛 - 有你更精彩 /2
前500实名认证用户回帖，100%有奖，机械键盘、游戏鼠标、书籍教材、培训班特惠，快来围观
回帖就送精易vip模块一个月时长。更有若快200元，100元充值卡海量精币送上。快来围观吧。
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
防范网络诈骗，远离网络犯罪
违法和不良信息举报电话，企业QQ： ，邮箱：@
Powered by
粤公网安备 25从Android路径中提取文件名的两种好方法-android100学习网
从Android路径中提取文件名的两种好方法
Android中定义了两种智能指针类型，一种是强指针sp（strong pointer），另外一种是弱指针（weak pointer）。其实称之为强引用和弱引用更合适一些。强指针与一般意义的智能指针概念相同，通过引用计数来记录有多......
从Android路径中提取文件名，有许多种方法，下面介绍两种比较好的方法。
方法一：利用String类
public String getFileName(String pathandname){
&int start=pathandname.lastIndexOf(&/&);
&&& int end=pathandname.lastIndexOf(&.&);
&&& if (start!=-1 && end!=-1) {
&&&&&&& return pathandname.substring(start+1, end);&
&&& else {
方法二：利用正则表达式
String regEx = &.+\\\\(.+)$&;
String str = &C:\\test.txt&;
Pattern p = pile(regEx);
Matcher m = p.matcher(str);
boolean rs = m.find();
&for(int i=1; i&=m.groupCount(); i++) {
&&& &System.out.println(m.group(i)); //括号内匹配内容java获取当前类的绝对路径 - tomfish - ITeye技术网站
博客分类：
在jsp和class文件中调用的相对路径不同。在jsp里，根目录是WebRoot 在class文件中，根目录是WebRoot/WEB-INF/classes 当然你也可以用System.getProperty("user.dir")获取你工程的绝对路径。
另:在Jsp,Servlet,Java中详细获得路径的方法!
1.jsp中取得路径：以工程名为TEST为例：(1)得到包含工程名的当前页面全路径：request.getRequestURI()结果：/TEST/test.jsp(2)得到工程名：request.getContextPath()结果：/TEST(3)得到当前页面所在目录下全名称：request.getServletPath()结果：如果页面在jsp目录下 /TEST/jsp/test.jsp(4)得到页面所在服务器的全路径：application.getRealPath("页面.jsp")结果：D:\resin\webapps\TEST\test.jsp(5)得到页面所在服务器的绝对路径：absPath=new java.io.File(application.getRealPath(request.getRequestURI())).getParent();结果：D:\resin\webapps\TEST2.在类中取得路径：(1)类的绝对路径：Class.class.getClass().getResource("/").getPath()结果：/D:/TEST/WebRoot/WEB-INF/classes/pack/(2)得到工程的路径：System.getProperty("user.dir")结果：D:\TEST3.在Servlet中取得路径：(1)得到工程目录：request.getSession().getServletContext().getRealPath("") 参数可具体到包名。结果：E:\Tomcat\webapps\TEST(2)得到IE地址栏地址：request.getRequestURL()结果：http://localhost:8080/TEST/test(3)得到相对地址：request.getRequestURI()结果：/TEST/test
另，Class类还有一个getResourceAsStream方法，记得以前有个项目要读取在同一个包内的一个xml，就用的这个。
1.如何获得当前文件路径常用：(1).Test.class.getResource("")得到的是当前类FileTest.class文件的URI目录。不包括自己！(2).Test.class.getResource("/")得到的是当前的classpath的绝对URI路径。(3).Thread.currentThread().getContextClassLoader().getResource("")得到的也是当前ClassPath的绝对URI路径。(4).Test.class.getClassLoader().getResource("")得到的也是当前ClassPath的绝对URI路径。(5).ClassLoader.getSystemResource("")得到的也是当前ClassPath的绝对URI路径。尽量不要使用相对于System.getProperty("user.dir")当前用户目录的相对路径，后面可以看出得出结果五花八门。(6) new File("").getAbsolutePath()也可用。
2.Web服务器(1).Tomcat在类中输出System.getProperty("user.dir");显示的是%Tomcat_Home%/bin(2).Resin不是你的JSP放的相对路径,是JSP引擎执行这个JSP编译成SERVLET的路径为根.比如用新建文件法测试File f = new File("a.htm");这个a.htm在resin的安装目录下 (3).如何读文件使用ServletContext.getResourceAsStream()就可以(4).获得文件真实路径String
file_real_path=ServletContext.getRealPath("mypath/filename");
不建议使用request.getRealPath("/"); 3.文件操作的类，不建议使用，可以使用commons io类
import java.io.*;import java.net.*;import java.util.*;
/*** 此类中封装一些常用的文件操作。* 所有方法都是静态方法，不需要生成此类的实例，* 为避免生成此类的实例，构造方法被申明为private类型的。* @since
public class FileUtil {
* 私有构造方法，防止类的实例化，因为工具类不需要实例化。
private FileUtil() {
* 修改文件的最后访问时间。
* 如果文件不存在则创建该文件。
* &b&目前这个方法的行为方式还不稳定，主要是方法有些信息输出，这些信息输出是否保留还在考
虑中。&/b&
* @param file 需要修改最后访问时间的文件。
public static void touch(File file) {
long currentTime = System.currentTimeMillis();
if (!file.exists()) {
System.err.println("file not found:" + file.getName());
System.err.println("Create a new file:" + file.getName());
if (file.createNewFile()) {
System.out.println("Succeeded!");
System.err.println("Create file failed!");
catch (IOException e) {
System.err.println("Create file failed!");
e.printStackTrace();
boolean result = file.setLastModified(currentTime);
if (!result) {
System.err.println("touch failed: " + file.getName());
* 修改文件的最后访问时间。
* 如果文件不存在则创建该文件。
* &b&目前这个方法的行为方式还不稳定，主要是方法有些信息输出，这些信息输出是否保留还在考
虑中。&/b&
* @param fileName 需要修改最后访问时间的文件的文件名。
public static void touch(String fileName) {
File file = new File(fileName);
touch(file);
* 修改文件的最后访问时间。
* 如果文件不存在则创建该文件。
* &b&目前这个方法的行为方式还不稳定，主要是方法有些信息输出，这些信息输出是否保留还在考
虑中。&/b&
* @param files 需要修改最后访问时间的文件数组。
public static void touch(File[] files) {
for (int i = 0; i & files. i++) {
touch(files);
* 修改文件的最后访问时间。
* 如果文件不存在则创建该文件。
* &b&目前这个方法的行为方式还不稳定，主要是方法有些信息输出，这些信息输出是否保留还在考
虑中。&/b&
* @param fileNames 需要修改最后访问时间的文件名数组。
public static void touch(String[] fileNames) {
File[] files = new File[fileNames.length];
for (int i = 0; i & fileNames. i++) {
files = new File(fileNames);
touch(files);
* 判断指定的文件是否存在。
* @param fileName 要判断的文件的文件名
* @return 存在时返回true，否则返回false。
public static boolean isFileExist(String fileName) {
return new File(fileName).isFile();
* 创建指定的目录。
* 如果指定的目录的父目录不存在则创建其目录书上所有需要的父目录。
* &b&注意：可能会在返回false的时候创建部分父目录。&/b&
* @param file 要创建的目录
* @return 完全创建成功时返回true，否则返回false。
public static boolean makeDirectory(File file) {
File parent = file.getParentFile();
if (parent != null) {
return parent.mkdirs();
* 创建指定的目录。
* 如果指定的目录的父目录不存在则创建其目录书上所有需要的父目录。
* &b&注意：可能会在返回false的时候创建部分父目录。&/b&
* @param fileName 要创建的目录的目录名
* @return 完全创建成功时返回true，否则返回false。
public static boolean makeDirectory(String fileName) {
File file = new File(fileName);
return makeDirectory(file);
* 清空指定目录中的文件。
* 这个方法将尽可能删除所有的文件，但是只要有一个文件没有被删除都会返回false。
* 另外这个方法不会迭代删除，即不会删除子目录及其内容。
* @param directory 要清空的目录
* @return 目录下的所有文件都被成功删除时返回true，否则返回false.
public static boolean emptyDirectory(File directory) {
boolean result =
File[] entries = directory.listFiles();
for (int i = 0; i & entries. i++) {
if (!entries.delete()) {
* 清空指定目录中的文件。
* 这个方法将尽可能删除所有的文件，但是只要有一个文件没有被删除都会返回false。
* 另外这个方法不会迭代删除，即不会删除子目录及其内容。
* @param directoryName 要清空的目录的目录名
* @return 目录下的所有文件都被成功删除时返回true，否则返回false。
public static boolean emptyDirectory(String directoryName) {
File dir = new File(directoryName);
return emptyDirectory(dir);
* 删除指定目录及其中的所有内容。
* @param dirName 要删除的目录的目录名
* @return 删除成功时返回true，否则返回false。
public static boolean deleteDirectory(String dirName) {
return deleteDirectory(new File(dirName));
* 删除指定目录及其中的所有内容。
* @param dir 要删除的目录
* @return 删除成功时返回true，否则返回false。
public static boolean deleteDirectory(File dir) {
if ( (dir == null) || !dir.isDirectory()) {
throw new IllegalArgumentException("Argument " + dir +
" is not a directory. ");
File[] entries = dir.listFiles();
int sz = entries.
for (int i = 0; i & i++) {
if (entries.isDirectory()) {
if (!deleteDirectory(entries)) {
if (!entries.delete()) {
if (!dir.delete()) {
* 返回文件的URL地址。
* @param file 文件
* @return 文件对应的的URL地址
* @throws MalformedURLException
* @deprecated 在实现的时候没有注意到File类本身带一个toURL方法将文件路径转换为URL。
请使用File.toURL方法。
public static URL getURL(File file) throws MalformedURLException {
String fileURL = "file:/" + file.getAbsolutePath();
URL url = new URL(fileURL);
* 从文件路径得到文件名。
* @param filePath 文件的路径，可以是相对路径也可以是绝对路径
* @return 对应的文件名
public static String getFileName(String filePath) {
File file = new File(filePath);
return file.getName();
* 从文件名得到文件绝对路径。
* @param fileName 文件名
* @return 对应的文件路径
public static String getFilePath(String fileName) {
File file = new File(fileName);
return file.getAbsolutePath();
* 将DOS/Windows格式的路径转换为UNIX/Linux格式的路径。
* 其实就是将路径中的"\"全部换为"/"，因为在某些情况下我们转换为这种方式比较方便，
* 某中程度上说"/"比"\"更适合作为路径分隔符，而且DOS/Windows也将它当作路径分隔符。
* @param filePath 转换前的路径
* @return 转换后的路径
public static String toUNIXpath(String filePath) {
return filePath.replace('\\', '/');
* 从文件名得到UNIX风格的文件绝对路径。
* @param fileName 文件名
* @return 对应的UNIX风格的文件路径
* @see #toUNIXpath(String filePath) toUNIXpath
public static String getUNIXfilePath(String fileName) {
File file = new File(fileName);
return toUNIXpath(file.getAbsolutePath());
* 得到文件的类型。
* 实际上就是得到文件名中最后一个“.”后面的部分。
* @param fileName 文件名
* @return 文件名中的类型部分
public static String getTypePart(String fileName) {
int point = fileName.lastIndexOf('.');
int length = fileName.length();
if (point == -1 || point == length - 1) {
return "";
return fileName.substring(point + 1, length);
* 得到文件的类型。
* 实际上就是得到文件名中最后一个“.”后面的部分。
* @param file 文件
* @return 文件名中的类型部分
public static String getFileType(File file) {
return getTypePart(file.getName());
* 得到文件的名字部分。
* 实际上就是路径中的最后一个路径分隔符后的部分。
* @param fileName 文件名
* @return 文件名中的名字部分
public static String getNamePart(String fileName) {
int point = getPathLsatIndex(fileName);
int length = fileName.length();
if (point == -1) {
return fileN
else if (point == length - 1) {
int secondPoint = getPathLsatIndex(fileName, point - 1);
if (secondPoint == -1) {
if (length == 1) {
return fileN
return fileName.substring(0, point);
return fileName.substring(secondPoint + 1, point);
return fileName.substring(point + 1);
* 得到文件名中的父路径部分。
* 对两种路径分隔符都有效。
* 不存在时返回""。
* 如果文件名是以路径分隔符结尾的则不考虑该分隔符，例如"/path/"返回""。
* @param fileName 文件名
* @return 父路径，不存在或者已经是父目录时返回""
public static String getPathPart(String fileName) {
int point = getPathLsatIndex(fileName);
int length = fileName.length();
if (point == -1) {
return "";
else if (point == length - 1) {
int secondPoint = getPathLsatIndex(fileName, point - 1);
if (secondPoint == -1) {
return "";
return fileName.substring(0, secondPoint);
return fileName.substring(0, point);
* 得到路径分隔符在文件路径中首次出现的位置。
* 对于DOS或者UNIX风格的分隔符都可以。
* @param fileName 文件路径
* @return 路径分隔符在路径中首次出现的位置，没有出现时返回-1。
public static int getPathIndex(String fileName) {
int point = fileName.indexOf('/');
if (point == -1) {
point = fileName.indexOf('\\');
* 得到路径分隔符在文件路径中指定位置后首次出现的位置。
* 对于DOS或者UNIX风格的分隔符都可以。
* @param fileName 文件路径
* @param fromIndex 开始查找的位置
* @return 路径分隔符在路径中指定位置后首次出现的位置，没有出现时返回-1。
public static int getPathIndex(String fileName, int fromIndex) {
int point = fileName.indexOf('/', fromIndex);
if (point == -1) {
point = fileName.indexOf('\\', fromIndex);
* 得到路径分隔符在文件路径中最后出现的位置。
* 对于DOS或者UNIX风格的分隔符都可以。
* @param fileName 文件路径
* @return 路径分隔符在路径中最后出现的位置，没有出现时返回-1。
public static int getPathLsatIndex(String fileName) {
int point = fileName.lastIndexOf('/');
if (point == -1) {
point = fileName.lastIndexOf('\\');
* 得到路径分隔符在文件路径中指定位置前最后出现的位置。
* 对于DOS或者UNIX风格的分隔符都可以。
* @param fileName 文件路径
* @param fromIndex 开始查找的位置
* @return 路径分隔符在路径中指定位置前最后出现的位置，没有出现时返回-1。
public static int getPathLsatIndex(String fileName, int fromIndex) {
int point = fileName.lastIndexOf('/', fromIndex);
if (point == -1) {
point = fileName.lastIndexOf('\\', fromIndex);
* 将文件名中的类型部分去掉。
* @param filename 文件名
* @return 去掉类型部分的结果
public static String trimType(String filename) {
int index = filename.lastIndexOf(".");
if (index != -1) {
return filename.substring(0, index);
* 得到相对路径。
* 文件名不是目录名的子节点时返回文件名。
* @param pathName 目录名
* @param fileName 文件名
* @return 得到文件名相对于目录名的相对路径，目录下不存在该文件时返回文件名
public static String getSubpath(String pathName,String fileName) {
int index = fileName.indexOf(pathName);
if (index != -1) {
return fileName.substring(index + pathName.length() + 1);
return fileN
}4.遗留问题
目前new FileInputStream()只会使用绝对路径，相对没用过，因为要相对于web服务器地址，比较麻烦
还不如写个配置文件来的快哪
5.按Java文件类型分类读取配置文件
配 置文件是应用系统中不可缺少的，可以增加程序的灵活性。java.util.Properties是从jdk1.2就有的类，一直到现在都支持load ()方法，jdk1.4以后save(output,string) -&store(output,string)。如果只是单纯的读，根本不存在烦恼的问题。web层可以通过 Thread.currentThread().getContextClassLoader().getResourceAsStream("xx.properties") 获取；Application可以通过new FileInputStream("xx.properties");直接在classes一级获取。关键是有时我们需要通过web修改配置文件，我们不 能将路径写死了。经过测试觉得有以下心得：
1.servlet中读写。如果运用Struts 或者Servlet可以直接在初始化参数中配置，调用时根据servletcontext的getRealPath("/")获取真实路径，再根据 String file = this.servlet.getInitParameter("abc");获取相对的WEB-INF的相对路径。例：InputStream input = Thread.currentThread().getContextClassLoader().getResourceAsStream("abc.properties");Properties prop = new Properties();prop.load(input);input.close();OutputStream out = new FileOutputStream(path);prop.setProperty("abc", “test");prop.store(out, “–test–");out.close();
2.直接在jsp中操作，通过jsp内置对象获取可操作的绝对地址。例：// jsp页面String path = pageContext.getServletContext().getRealPath("/");String realPath = path+"/WEB-INF/classes/abc.properties";
//java 程序InputStream in = getClass().getClassLoader().getResourceAsStream("abc.properties"); // abc.properties放在webroot/WEB-INF/classes/目录下prop.load(in);in.close();
OutputStream out = new FileOutputStream(path); // path为通过页面传入的路径prop.setProperty("abc", “abcccccc");prop.store(out, “–test–");out.close();
3.只通过Java程序操作资源文件InputStream in = new FileInputStream("abc.properties"); // 放在classes同级
OutputStream out = new FileOutputStream("abc.properties");=======================================
浏览 77241
浏览: 614405 次
来自: nibiru
[/color][color=yellow]
EL表达式中null和empty的区别，可以看这篇文章：htt ...
哈哈。真不错啊。~
不错，不错。。。查看: 8733|回复: 11
如何获取txt路径、文件名
阅读权限20
在线时间 小时
& & & & & & & &
如题，我想通过宏方式，打开并导入电脑上的txt文件，需要获取txt的路径及文件名赋给变量，要怎么获取？
阅读权限20
在线时间 小时
问题补充，运行宏：1.弹出对话框，选择要导入的txt文件2.获取该文件的路径、文件名 3.将txt数据导入excel中
阅读权限30
在线时间 小时
Private Sub CommandButton1_Click()
& &&&Set objShell = CreateObject(&Shell.Application&)
& && && && &Set objFolder = objShell.BrowseForFolder(0, &选择文件夹&, 0, 0)
& && && && && & If Not objFolder Is Nothing Then
& && && && && && &&&MsgBox objFolder.self.path
& && && && && & End If
& && && && &Set objFolder = Nothing
& && &&&Set objShell = Nothing
获取路径的方法。剩下的导入数据编个宏再修伽下就差不多了。
阅读权限20
在线时间 小时
回复 1楼 迷途书童 的帖子
Sub GetFilePathAndName()
'读取文件路径和名称
& & '定义变量
& & Dim strFileFullName As String
& & '调用文件打开对话框
& & With Application.FileDialog(msoFileDialogOpen)
& && &&&.AllowMultiSelect = False& && && && && && && && &&&'只能选单一文件(False只允许选单个文件,True可选多文件)
& && && && && && && && && && && && && && && && && && && &&&'多文件选择可通过数组变量保存返回值，并用循环语句读出文件路径和文件名（此不举例，只给出单一选择的例子，如有需要，请看对话框的帮助文件）
& && &&&.InitialFileName = ThisWorkbook.Path& && && && && &'设置默认路径
& && &&&.Filters.Add &文本文件&, &*.txt&& && && && && && &&&'限制文件类型
& && &&&.Title = &请选择文件&& && && && && && && && && && & '设置打开对话框的标题
& && &&&.Show
& && &&&strFileFullName = .SelectedItems(1)& && && && && & '将选中的文件路径赋值给变量
& && &&&MsgBox &你选择的文件路径为：& & strFileFullName _
& && && && && & & vbCr & &文件名为：& & Dir(strFileFullName) '屏幕显示变量值& && &&&
& & End With
阅读权限30
在线时间 小时
:victory: :victory: :victory: 有个标记
阅读权限20
在线时间 小时
Dim r, b As Integer
Dim wx As Object
& & With Application.FileDialog(msoFileDialogFilePicker)
& & If .show = -1 Then
& && & Set wx = GetObject(.SelectedItems(1))
& && & r = wx.Sheets(&Sheet1&).UsedRange.Rows.Count
& & end with
阅读权限20
在线时间 小时
非常谢谢几位的帮助，我先去试试！
阅读权限20
在线时间 小时
With ActiveSheet.QueryTables.Add(Connection:= _
& && &&&&TEXT;C:\Documents and Settings\Administrator\桌面\日报.txt&, Destination _
& && &&&:=Range(&A1&))
& && &&&.Name = &日报&
& && &&&.FieldNames = True
& && &&&.RowNumbers = False
& && &&&.FillAdjacentFormulas = False
&&我自己录制的导入数据的宏，在把路径和文件名赋值的过程中有错
阅读权限20
在线时间 小时
回复 4楼 heqiubao 的帖子
MsgBox &你选择的文件路径为：& & strFileFullName _
& && && && && & & vbCr & &文件名为：& & Dir(strFileFullName) '屏幕显示变量值& && &
通过这个显示的文件名是：日报.txt& &&&带后缀名的
还有在赋值的时候引号&& 怎么实现呢？
初学者，问的比较基础，不好意思:loveliness:
阅读权限20
在线时间 小时
将文本写入Excel， 可以用Ado的方法，如下：
Option Explicit
Sub GetDataFromTxt()
'从文本文件获取数据
& & '定义变量
& & Dim strSQLSting As String& && && &&&'查询语句
& & Dim objAdoConnection As Object& && &'数据库连接对象
& & Dim strSourceFileFullName As String '数据源文本文件路径
& & Dim strSourceFilePath As String& &&&'源文本文件的文件夹路径
& & Dim strSourceFileName As String& &&&'源文本文件的文件名
& & Dim StrOutputFileFullName As String '输出文件路径(本例为程序所在工作薄)
& & Dim intLocation As Integer
& & '建立数据库连接
& & StrOutputFileFullName = ThisWorkbook.FullName& &'赋值
& & Set objAdoConnection = CreateObject(&ADODB.CONNECTION&)
& & With objAdoConnection
& && &&&.connectionstring = &provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;hdr=No;imex=1';Data Source=& & StrOutputFileFullName
& && &&&.Open
& & End With
& & '取源文件的路径和文件名
& & strSourceFileFullName = &D:\My Documents\Ceshi.txt&& && && && && && &'按具体改一下，也可调用之前我发的那个子程序(改成函数进行调用)
& & intLocation = InStr(1, StrReverse(strSourceFileFullName), &\&)
& & strSourceFileName = Right(strSourceFileFullName, intLocation - 1)
& & strSourceFilePath = Left(strSourceFileFullName, Len(strSourceFileFullName) - Len(strSourceFileName))
& & strSQLSting = &Select F1, F2 from & _
& && && && && && & [TFMT=DHDR=No;DATABASE=& & strSourceFilePath & &;].[& & strSourceFileName & &];&
& & ThisWorkbook.Sheets(1).Cells(1, 1).CopyFromRecordset objAdoConnection.Execute(strSQLSting)
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师