123qwe
سه شنبه 27 مرداد 1388, 22:15 عصر
سلام دوستان من یه مشکل دارم امیدوارم با همکاری هم بتونیم حلش کنیم.
من میخوام یه فایل اکسل را در vb باز کنم و یه سری اطلاعات بهش اضافه کنم و در قالب یه فایل جدید سیو کنم اما وقتی سیو میشه فایل اصلی هم سیو میشه ، میخوام طوری باشه که فایل اصلی اصلا تغییر نکنه و تمام تغییرات در فایل جدید اعمال بشه.
برای این کار کد زیر را نوشتم که همون مشکلی را داره که در بالا گفتم دوستان کسی میتونه بگه مشکلش چیه؟
Private Sub Command1_Click()
Dim xlTmp As Excel.Application
Dim xlTmp1 As Excel.Application
Set xlTmp = New Excel.Application
xlTmp.Workbooks.Open "C:\2000.xls"
xlTmp.Cells(3, 1) = "123"
xlTmp.Cells(4, 1) = "456"
xlTmp.SaveWorkspace FileName:="c:\new.xls"
xlTmp.Workbooks.Close
End Sub
من میخوام یه فایل اکسل را در vb باز کنم و یه سری اطلاعات بهش اضافه کنم و در قالب یه فایل جدید سیو کنم اما وقتی سیو میشه فایل اصلی هم سیو میشه ، میخوام طوری باشه که فایل اصلی اصلا تغییر نکنه و تمام تغییرات در فایل جدید اعمال بشه.
برای این کار کد زیر را نوشتم که همون مشکلی را داره که در بالا گفتم دوستان کسی میتونه بگه مشکلش چیه؟
Private Sub Command1_Click()
Dim xlTmp As Excel.Application
Dim xlTmp1 As Excel.Application
Set xlTmp = New Excel.Application
xlTmp.Workbooks.Open "C:\2000.xls"
xlTmp.Cells(3, 1) = "123"
xlTmp.Cells(4, 1) = "456"
xlTmp.SaveWorkspace FileName:="c:\new.xls"
xlTmp.Workbooks.Close
End Sub