我在 YouTube 上觀看了這個視頻，它對我幫助很大，現在我必須改進該代碼。所以在代碼中粘貼值的行在哪里，我必須設定輸入框或其他東西，讓用戶選擇他想要粘貼的位置。這是我的代碼：
Sub IMPORT_DATA()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files(*.xlsx),*xlsx")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets("NELT report").Range("R7:R14").Copy
ThisWorkbook.Worksheets("Dispatch Monthly NETO").Range("L5").PasteSpecial xlPasteValues
OpenBook.Close False
Range("L5:L12").Interior.Color = RGB(255, 242, 204)
End If
Application.ScreenUpdating = True
End Sub
uj5u.com熱心網友回復：
Sub IMPORT_DATA()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim s As String ' Range to Paste
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import
Range", FileFilter:="Excel Files(*.xlsx),*xlsx")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets("NELT report").Range("R7:R14").Copy
s = InputBox("Range to Paste : ")
If s = "" Then Exit Sub
ThisWorkbook.Worksheets("Dispatch Monthly NETO").Range(s).PasteSpecial
xlPasteValues
OpenBook.Close False
Range("L5:L12").Interior.Color = RGB(255, 242, 204)
End If
Application.ScreenUpdating = True
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/314268.html
上一篇：只為表格中的行著色，而不是所有行