VBA: ចម្លងទិន្នន័យពីឯកសារ Excel ដែលមិនដំណើរការដាក់ក្នុងឯកសារថ្មីមួយទៀត

Sub GetDataFromClosedFille()
Dim mydata As String
'data location & range to copy
mydata = "='D:\Inventory\[Jan.xlsm]Monthly'!$A$1:$R$144" '<< change as required

'link to worksheet
With ThisWorkbook.Worksheets("Jan").Range("A1:R144") '<< change as required
.Formula = mydata

'convert formula to text
.Value = .Value
End With
End Sub

• D:\Inventory\ ទីតាំងទុកឯកសារ
• [Jan.xlsm] ឈ្មោះឯកសារត្រូវដាក់ក្នុង [...]
• Monthly ឈ្មោះ Sheet 
• $A$1:$R$144 ទីតាំង Cell ក្នុង sheet ខាងលើ
• Jan ជាឈ្មោះ sheet ក្នុង Workbook ថ្មី ដែលត្រូវ Copy ពី sheet Monthly នៃ Workbook Jan
• A1:R144 ទីតាំង Cell ក្នុង sheet Jan ដែលត្រូវ Copy ពី $A$1:$R$144 នៃ sheet Monthly

Posted in: Code,អត្ថបទ