vba 瀛愯绷绋嬫垨鍑芥暟链?畾涔

来源：百度知道 编辑：UC知道 时间：2024/06/02 22:52:28
Sub 锻煎彨寤虹珛()
Dim ActiveData
ActiveData = ActiveSheet.Value
Sheets.Add Before:=Sheets(1)
Sheets("锻煎彨寤虹珛鎴愬姛鐜?).Select
fileToOpen = Application.GetOpenFilename("", , , , True)
If VarType(fileToOpen) = vbBoolean Then
MsgBox "No files selected!"
Else
For Each fn In fileToOpen
Application.Run "'娴奶瘯.xls'!DateFormat"
Sheets("锻煎彨寤虹珛鎴愬姛鐜?).Select
If ActiveData <> Sheets(1).Cells(2, 2).Value Then
MsgBox "You choose the wrong files"
Else
Application.Run "'娴奶瘯.xls'!ImportData(fn)"
Sheet(1).Range("F4").Copy
If Shee1(1).Cells(2, 3).Value = "08" Then
ActiveCell.Offset(0, 1).Paste
If Shee1(1).Cells(2, 3).Value = "09" Then
ActiveCell.Offset(0, 2).Paste
If Shee1(1).Cells(2, 3).Value = "10" Then

既然你改成select了 下面为什么还有个end if呢？

End Select
End If '把这个end if去掉

看不到问题。

都是乱码。

建议补充下。。。

'Try this one:

Sub 锻煎彨寤虹珛()
Dim ActiveData
ActiveData = ActiveSheet.Value
Sheets.Add Before:=Sheets(1)
Sheets("锻煎彨寤虹珛鎴愬姛鐜?).Select
fileToOpen = Application.GetOpenFilename("", , , , True)
If VarType(fileToOpen) = vbBoolean Then
MsgBox "No files selected!"
Else
For Each fn In fileToOpen
Application.Run "'娴奶瘯.xls'!DateFormat"
Sheets("锻煎彨寤虹珛鎴愬姛鐜?).Select
If ActiveData <> Sheets(1).Cells(2, 2).Value Then
MsgBox "You choose the wrong files"
Else
Application.Run "'娴奶瘯.xls'!ImportData(fn)"
Sheet(1).Range("F4").Copy
If Shee1(1).Cells(2, 3).Value = "08" Then
ActiveCell.Offset(0, 1).Paste
If Shee1(1).Cells(2, 3).Value = "0