VBA如何获取当前EXCEL文件的路径

VBA如何获取当前EXCEL文件的路径,第1张

1、首先打开Excel数据表,在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容。

3、在VBA编辑器中插入模块。

4、Sub获取文件路径()Dim filess, tempfiless=ApplicationGetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件,程序即将退出!": Exit Subtemp=Split(filess, "\")。

5、MsgBox "你选择的《" & temp(UBound(temp)) & "》的路径为:" & Chr(10) & filess _

& Chr(10) & "当前表路径为:" & Chr(10) & ThisWorkbookFullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码,然后运行。

6、然后单击“执行”按钮,程序d出“选择文件”对话框。选择一个文件后,程序立即d出所选文件的路径,然后d出当前工作簿的路径。

这个文件夹 不一定会生成到最终发布目录,这个要看里面的文件是什么性质,是不是内容文件并复制到输出目录。

1 SystemDiagnosticsProcessGetCurrentProcess()MainModuleFileName

获取模块的完整路径。

2 SystemEnvironmentCurrentDirectory

获取和设置当前目录(该进程从中启动的目录)的完全限定目录。

3 SystemIODirectoryGetCurrentDirectory()

获取应用程序的当前工作目录。这个不一定是程序从中启动的目录啊,有可能程序放在C:\>

string []upfiles = RequestFilesAllKeys;

        string filenames = "";

        foreach (string s in upfiles)

        {

            if (s == "txt")

            {

 

            }

            else if (s == "txt1")

            {

 

            }

            filenames += s+"<br/>";

        }

        ResponseWrite(filenames);

注意:你的是 NET 后台获取。

估计你是获取不到的。因为你的上传的都是 html,而不是aspnet 控件。

你可以使用NET fileuploader 控件。

<%@ Page Language="C#" AutoEventWireup="true"  CodeFile="Defaultaspxcs" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 10 Transitional//EN" "

<html xmlns="

<head runat="server">

    <title>无标题页</title>

</head>

<body>

    <form id="form1" runat="server">

    <div>

    

        <input id="File1" type="file" name="txt" /><br />

        <input id="File2" type="file"  name="txt"/><br />

        <input id="File3" type="file"  name="txt1"/><br />

        <input id="File4" type="file"  name="txt1"/><br />

        <br />

        <asp:FileUpload ID="FileUpload1" runat="server" />

    </div>

    <asp:Button ID="Button2" runat="server" onclick="Button2_Click" Text="Button" />

    </form>

</body>

</html>

根据

 foreach (string s in upfiles)

        {

            if (s == "txt")

            {

  

            }

            else if (s == "txt1")

            {

  

            }

            filenames += s+"";

        }

来得到你想要的 上传文件。。

public File getFile(){

final JFileChooser fc = new JFileChooser();

fc setFileSelectionMode(JFileChooser FILES_AND_DIRECTORIES);

//        JFileChooser FILES_ONLY

//        JFileChooser DIRECTORIES_ONLY

int returnVal = fc showOpenDialog(this);

File file_choosed = fc getSelectedFile();

return file_choosed;

lishixinzhi/Article/program/Java/hx/201311/27130

string str =Process GetCurrentProcess() MainModule FileName;//可获得当前执行的exe的文件名

string str =Environment CurrentDirectory;//获取和设置当前目录(即该进程从中启动的目录)的完全限定路径

//备注 按照定义 如果该进程在本地或网络驱动器的根目录中启动 则此属性的值为驱动器名称后跟一个尾部反斜杠(如 C:\ ) 如果该进程在子目录中启动 则此属性的值为不带尾部反斜杠的驱动器和子目录路径(如 C:\mySubDirectory )

string str =Directory GetCurrentDirectory();//获取应用程序的当前工作目录

string str =AppDomain CurrentDomain BaseDirectory;//获取基目录 它由程序集冲突解决程序用来探测程序集

string str =Application StartupPath;//获取启动了应用程序的可执行文件的路径 不包括可执行文件的名称

string str =Application ExecutablePath;//获取启动了应用程序的可执行文件的路径 包括可执行文件的名称

string str =AppDomain CurrentDomain SetupInformation ApplicationBase;//获取或设置包含该应用程序的目录的名称

   System Diagnostics Process GetCurrentProcess() MainModule FileName获取模块的完整路径

   System Environment CurrentDirectory获取和设置当前目录(该进程从中启动的目录)的完全限定目录

   System IO Directory GetCurrentDirectory()获取应用程序的当前工作目录 这个不一定是程序从中启动的目录啊 有可能程序放在C:\里 这个函数有可能返回C:\Documents and Settings\ZYB\ 或者C:\Program Files\Adobe\ 有时不一定返回什么东东 我也搞不懂了

  System AppDomain CurrentDomain BaseDirectory获取程序的基目录

  System AppDomain CurrentDomain SetupInformation ApplicationBase获取和设置包括该应用程序的目录的名称

lishixinzhi/Article/program/net/201311/12285

IE与FF获取上传文件路径方法

1 function getPath(obj)

2 {

3 if(obj)

4 {

5

6 if (windownavigatoruserAgentindexOf("MSIE")>=1)

7 {

8 objselect();

9

10 return documentselectioncreateRange()text;

11 }

12

13 else if(windownavigatoruserAgentindexOf("Firefox")>=1)

14 {

15 if(objfiles)

16 {

17

18 return objfilesitem(0)getAsDataURL();

19 }

20 return objvalue;

21 }

22 return objvalue;

23 }

24 }

在ie6中对于<input type="file" />通过objvalue是可以获取客户端选择文件的全路径的,但是到ie7就只能获取文件名,这对于onchange事件立即显示会有问题,可以用js方法解决

具体代码如下:

<html>

<head>

<title>get file input full path</title>

<script language='javascript'>

function getFullPath(obj)

{

if(obj)

{

//ie

if (windownavigatoruserAgentindexOf("MSIE")>=1)

{

objselect();

return documentselectioncreateRange()text;

}

//firefox

else if(windownavigatoruserAgentindexOf("Firefox")>=1)

{

if(objfiles)

{

return objfilesitem(0)getAsDataURL();

}

return objvalue;

}

return objvalue;

}

}

</script>

</head>

<body>

<input type="file" onchange="documentgetElementById('img')src=getFullPath(this);" />

<img id="img" />

</body>

</html>

以上就是关于VBA如何获取当前EXCEL文件的路径全部的内容,包括:VBA如何获取当前EXCEL文件的路径、C# 获取文件夹的绝对路径、.net 后台获取file的路径,还要按name区分开!怎么解决!等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9277656.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-04-26
下一篇2023-04-26

发表评论

登录后才能评论

评论列表(0条)

    保存