dosya aç makrosu hk.

[chakistes]

merhaba arkadaşlar aşağıdaki kod ile dosya aç çıkmasını masaüstünden veya klasörden xlsx uzantısı ile dosyayı seçmek istiyorum. bu konuda yardımınıza ihtiyacım vardır.
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Sheets.Add Type:=ThisWorkbook.Path & "\LİSTE.xlsx" buraya kodu uyarlayamadım.
ActiveSheet.Move After:=wb.Sheets(1)
wb.Sheets(1).Rows("1:1").Delete Shift:=xlUp
wb.Sheets(1).Name = "FAALİYET"
ActiveSheet.Cells(1).Select
MsgBox "AKTARMA İŞLEMİ TAMAMLANDI"

 

[Orion1]

merhaba arkadaşlar aşağıdaki kod ile dosya aç çıkmasını masaüstünden veya klasörden xlsx uzantısı ile dosyayı seçmek istiyorum. bu konuda yardımınıza ihtiyacım vardır.
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Sheets.Add Type:=ThisWorkbook.Path & "\LİSTE.xlsx" buraya kodu uyarlayamadım.
ActiveSheet.Move After:=wb.Sheets(1)
wb.Sheets(1).Rows("1:1").Delete Shift:=xlUp
wb.Sheets(1).Name = "FAALİYET"
ActiveSheet.Cells(1).Select
MsgBox "AKTARMA İŞLEMİ TAMAMLANDI"

Aşağıdaki kodu deneyin.Masa üstü için.

wb.Sheets.Add Type:=CreateObject("wscript.shell").specialfolders(0)& "\LİSTE.xlsx"

 

[chakistes]

marhaba kodu liste xlsx değilde dosya aç değimde herhangi bir xlsx dosyasını seçmek için nasıl yapabilirim.