.AllowMultiSelect=False'是否可以选择多个文件.Filters.Clear.Filters.Add"ExcelFiles","*.txt"'文件类型.Show'显示对话框Path=.SelectedItems(1)'获得选定文件,多选的话用循环依次取出EndWi...
建议用FileSystemObject操作:示例SubReadTextFile()DimfsAsObjectDimobjFileAsObjectDimstrContentAsStringDimstrFileNameAsStringstrFileName="C:\aaa.txt"'此处可以用其他变量代替Setfs...
Filename=Application.GetOpenFilename("xls,*.xls,xlsx,*.xlsx")
sName=Application.GetOpenFilename(dept&"文本数据,*.txt;*.unl;*.cvs;*.csv",,"打开信息技术部提供的文本数据文件")IfsName=FalseThenExitFunctionSheets("工具").[b2].Value=sName...
Subxxx()DimfPath,st1,st2,wbfPath=Application.GetOpenFilename("选择文件,*.xls;*.xlsx")Setst1=ActiveSheetIffPath=FalseThenExitSubSetwb=Workbooks.Open(fPath)Setst2=...
要复制其中的内容话,其实还是要打开的,只不过可以让你看不到,复制后就立即关闭,看起来像没打开一样。
MsgBox"选中了"&fileToOpen&"文件"ElseMsgBox"没有选中文件"ExitSubEndIfOpenfileToOpenForInputAs#1DoWhileNotEOF(1)LineInput#1,textsi=i+1ReDimPreservelines(i)lines(...
SetobjFD=Application.FileDialog(msoFileDialogFolderPicker)WithobjFDIf.Show=-1Then'如果单击了确定按钮,则将选取的路径保存在变量中sPath=.SelectedItems(1)EndIfEndWith...
IfRange("a1")="正确"Thenrespons=MsgBox("提示……",vbYesNo)Ifrespons=vbYesThenA代码ElseIfrespons=vbNoThenB代码ElseEndIfEndIf加入这样的语句试试……...
用VBA内置函数inputbox来输入文本,使您的“班级”成为变量。用msgbox来回返M2单元格中的结果值。DIMbjASStringbj=inputbox("请输入您的文本","请输入")Sheets("ETINFO(正式版)").SelectActiveWindow.SmallScroll...