LFfootprint的博客

Private Sub commandButton1_Click()'声明文件夹名和路径Dim FileName, Path As String, EmptySheet As StringPath = “D:\上报”FileName = Path & “\当期”EmptySheet = Path & “\空表”'MsgBox FileNameIf Dir(FileNa...

将"E:\my\汇报\成绩"路径下源文件中的“1项目”，“一项目”等文件复制到目标文件下。以下为实现方式。Private Sub Option1_Click()Dim myStr As String'通过在单元格中输入项目序号,目前采用的InputBox方式指定的，也可通过此方式。二者取其一。'myStr = Sheets(“Sheet1”).Range(“D21”).Text '''...