VBA读取文件

Dim Foldar As String
Private Sub btn(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then
     Search
    End If
End Sub

Sub Search()
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            Foldar = .SelectedItems(1)
            ‘Range("D3").Value = Foldar
            selectjs (Foldar)
        End If
    End With
End Sub

Public Function selectjs(ByVal lujing As String)

Dim MyFile As String

Dim s As String

Dim i As Integer

MyFile = Dir(lujing & "\" & "*.js")

count = count + 1

s = MyFile

output (s) Do While MyFile <> ""

MyFile = Dir

If MyFile = "" Then

count = 0 Exit Do

End If

count = count + 1

s = MyFile

output (s)

Loop

Debug.Print s

End Function

Public Function output(sname)

Range("A" & count).Value = sname

End Function

时间： 2024-10-13 15:48:38

VBA读取文件的相关文章

VBA读取文件夹下所有文件夹及文件内容，并以树形结构展示

Const TR_LEVEL_MARK = "+"Const TR_COL_INDEX = "A"Const TR_COL_LEVEL = "E"Const TR_COL_NAME = "C"Const TR_COL_COUNT = "D"Const TR_COL_TREE_START = "F"Const TR_ROW_HEIGHT = 23Const TR_COL_LINE_WIDT

VBA之文件筛选

在工作中,经常会碰到从一堆腐朽的source中按照一个列表去筛选出来现在还要用的source文件. 这个如果用vba来实现的话,会节省大量的时间,而且不会出错. 前提说明: 将想要复制的文件名列表放在第一sheet的第一列,然后执行程序首先选择源目录和目标目录, 然后会从源目录中查找文件,将存在的文件自动复制的目标目录中, 不存在的文件,记录在第二列里. Sub fileFilter() Dim folderOld As String Dim folderNew As String Dim f

VBA读取固定文件夹中txt内容

Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j%, txtpath As String Dim txtname As Variant ChDir ThisWorkbook.Path txtpath = "D:\Users\addy.zhao\Desktop\computers\" 'Filename = Application.GetOpenFilenam

VBA读取可选择文件夹下可选择txt文件内容

Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j% ChDir ThisWorkbook.Path Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True) j = 1 For k = 1 To U

VBA取行列数，运行CMD，数组，VBA写文件相关

备忘用: 1.VBA取行列数: 例如要取第二行使用了多少列:Cells(2, Columns.Count).End(xlToLeft).Column:解释:主要是End方法,VBA中如下阐述:返回一个 Range 对象,该对象代表包含源区域的区域尾端的单元格.等同于按键 End+ 向上键.End+ 向下键.End+ 向左键或 End+ 向右键.Range 对象,只读.意思就是说取到选择区域的最后一个单元格. 如果你需要取到sheet页内使用到的最大行和列,可以如下使用: nRow = Ac

解决Python读取文件时出现UnicodeDecodeError: 'gbk' codec can't decode byte...

用Python在读取某个html文件时会遇到下面问题: 出问题的代码: 1 if __name__ == '__main__': 2 fileHandler = open('../report.html', mode='r') 3 4 report_lines = fileHandler.readlines() 5 for line in report_lines: 6 print(line.rstrip()) 修改方式是在open方法指定参数encoding='UTF-8': if __nam

Java如何实现按指定行读取文件

最近在开发实战中,遇到了一个这样的技术情景: 把log4j生成的日志文件定时刷进MySQL数据库,比如三个小时刷一次,那么每次刷数据的时候,如何控制文件读取是从上一次文件读取结束的地方开始继续读取的?并且本次要读取到文件结尾处.在网上各种搜索提问后,找到了一个叫RandomAccessFile Java类解决了问题. 先上代码: static int size=1;//主要是为了控制循环的次数,因为是定时刷,每次刷的文件行数可能不一样 static long chars=0;//chars指的是

shell读取文件行,列

cat ${FILE} | while read line do echo $line done ------------------------------------------- while read LINE #每次读取aa.list中的一行 do echo $LINE #输出每行的信息 done < ${FILE} ------------------------------------------- 读取文件的每行第一列和第二列 while read n m do echo

python 按每行读取文件怎么去掉换行符

python按每行读取文件后,会在每行末尾带上换行符,这样非常不方便后续业务处理逻辑,需要去掉每行的换行符,怎么去掉呢?看下面的案例: >>> a = "hello world\n" >>> print a #可以看到hello world下面空了一格 hello world >>> a.split() #通过split方法将字符转换成列表 ['hello', 'world'] #从列表中取第一个字符 >>> a.