File 读取Excel的时候路径的问题

Dim lCount As Long

Dim vFilename As Variant

Dim sPath As String

Dim lFilecount As Long

sPath = "c:\windows\temp\"

ChDrive sPath

ChDir sPath

vFilename = ApplicationGetOpenFilename("Microsoft Excel files (xls),xls", , "Please select the file(s) to open", , True)

If TypeName(vFilename) = "Boolean" Then Exit Sub

For lCount = 1 To UBound(vFilename)

WorkbooksOpen vFilename(lCount)

Next

可以多选 批量打开

像这样的文章很多，随便找了一个你看看

获取文件目录路径的JavaScript代码

很多时候我们都需要在js文件中获取该文件的详细路径，以便根据其他文件与该js的相对位置计算并设置其他一些文件如或样式或脚本的目录路径。我们一般都这样做：

假设外部js文件的文件名为：testjs，则在testjs中都这样写：

var js=documentscripts;

var jsPath;

for(var i=0;i<jslength;i++){

if(js[i]srcindexOf("testjs")>-1){

jsPath=js[i]srcsubstring(0,js[i]srclastIndexOf("/")+1);

}

}

alert(jsPath);

或者为了提高效率，这样写

var js=documentscripts;

var jsPath;

for(var i=jslength;i>0;i--){

if(js[i-1]srcindexOf("testjs")>-1){

jsPath=js[i-1]srcsubstring(0,js[i-1]srclastIndexOf("/")+1);

}

}

alert(jsPath);

这种思路很清晰，根据文件名获取引用的文件的src属性并进行判断截取即可。

但这种办法有以下两个缺点：

1、需要遍历页面的js文件，有时可能效率会比较低。

2、如果页面中出现目录不同的重名的js文件则可能判断错误。

其实我们可以有更简单的办法来准确获取路径，这是在一次js测试突然发现并幡然醒悟的。

var js=documentscripts;

js=js[jslength-1]srcsubstring(0,js[jslength-1]srclastIndexOf("/")+1);

alert(js);

直接使用jslength？这会正确吗？

其实仔细想想，由于判断路径的js代码一般都直接放在js文件中而不是函数中，所以当加载该js文件时会立即执行其中的语句，而执行此语句时所获取到的js文件数目正好是jslength-1，因为页面后面的js文件还没有加载，所以该处的js文件获取的数目并不是页面所有的js文件的数目。这样一来，获取路径就无需再遍历了，而且文件判断也无需文件名，判断更加准确(jslength-1永远都是其文件本身)。

获取windows系统临时目录

<script>

var fso = new ActiveXObject("ScriptingFileSystemObject");

var f = fsoGetSpecialFolder(2);

alert(f);

</script>

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出当前工作簿的路径。

前台js代码中设置文件路径'folder': filePath,

后台获取该路径。

c#举列如下：

获取路径：

string uploadPath = >

先拖一个HTML控件file field 设置其id为SelectFile并设置其language=c#,runat=server，再在你该程序下目录下新建一个document文件夹，忘记了是不是还需要设置下该文件夹的权限（添加一个every one用户赋予全部权限）

然后再如写代码：

string selectfile="";

string file=SelectFilePostedFileFileNameToString()Trim();

if (!fileEquals(""))

{

string path=ServerMapPath("");

string fileName = SystemIOPathGetFileName( SelectFilePostedFileFileName );

path += "\\document\\";

selectfile = SystemIOPathCombine(path,fileName);

SelectFilePostedFileSaveAs( selectfile);

PageRegisterStartupScript("sb1", "<script language=javascript>alert('上传成功！');</script>");//此时你去看document文件夹下已经有你上传的文件了

}

你好 亲

修改后的应该是这样的

dlgFilem_ofnFlags |= OFN_ALLOWMULTISELECT | OFN_ENABLESIZING | OFN_HIDEREADONLY;

dlgFilem_ofnlpstrFilter = _T("Bin Files(bin)\0bin\0All Files()\0\0\0");

const int nMaxFiles = 1000;

const int nMaxPathBuffer = (nMaxFiles (MAX_PATH + 1)) + 1;

LPSTR pc = (LPSTR)malloc(nMaxPathBuffer sizeof(WCHAR));

if( pc )

{

dlgFileGetOFN()lpstrFile = pc;

dlgFileGetOFN()lpstrFile[0] = NULL;

dlgFilem_ofnnMaxFile = nMaxPathBuffer;

if (dlgFileDoModal() != IDOK)

{

return;

}

UpdateData(TRUE);

POSITION pos = dlgFileGetStartPosition();//获取第一个文件位置

UpdateData(FALSE);

while (pos)

{

m_FilePathName[i] = dlgFileGetNextPathName(pos);

if(i == 0)

{

m_TreeMuti1DeleteAllItems();

/TiXmlDocument doc1 = new TiXmlDocument("D:\\sumAbin");/

TiXmlDocument doc1 = new TiXmlDocument(m_FilePathName[0]);

/CString str;strFormat(_T("%s"),m_FilePathName[0]);AfxMessageBox(str);/

if (!doc1->LoadFile())

{

/CString str;strFormat(_T("%s"),m_FilePathName[0]);AfxMessageBox(str);/

return;

}

TiXmlElement root1=doc1->RootElement();

TiXmlElement pNode1=root1;

CrcXmlMuti1(pNode1,TVI_ROOT);

以上就是关于File 读取Excel的时候路径的问题全部的内容，包括:File 读取Excel的时候路径的问题、javascript 中怎样获取file里的完整路径，如：D:\E\1.jpg、VBA如何获取当前EXCEL文件的路径等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！