درج اطلاعات فايل در يك سلول

**mohamadali110** · 2015/01/04, 12:50

بازم خودم سوال كردم و خودم دارم حل ميكنم

حالا ميگين پسره خل شده :D

اين كدو براي اخرين اصلاح فايل نوشتم

کد:

[COLOR=#333333][FONT=Segoe UI]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)[/FONT][/COLOR]
[COLOR=#333333][FONT=Segoe UI]Sheets("Sheet1").Range("A1").Value = Now[/FONT][/COLOR]
[COLOR=#333333][FONT=Segoe UI]End Sub[/FONT][/COLOR]

فقط يه سوال
1- چطوري ميتونم اطلاعات مربوط به Accesses فايل رو درج كنه

ممنونم

**mohamadali110** · 2015/01/04, 16:51

اين فرمول هم جواب مي ده كه مياد يه تابع تو اكسل درست ميكنه

کد:

Function LastSaveDate()    Application.Volatile True
    LastSaveDate = FileDateTime(ThisWorkbook.FullName)
End Function

فقط يه مورد اينكه نمي خوام آخرين تغييرات همون فايل رو نشونم بده ميخوام بهش آدرس بدم مثلا اين فايل رو آخرين تغييراتش رو با اين مسير نشونم بده

مثلا مسير زير

کد:

\\B-server\e.p.dep\Industrial engineering\Tolid-info\program.xlsx

**حسام بحرانی** · 2015/01/04, 21:12

نوشته اصلی توسط mohamadali110

اين فرمول هم جواب مي ده كه مياد يه تابع تو اكسل درست ميكنه

کد:

Function LastSaveDate()    Application.Volatile True
    LastSaveDate = FileDateTime(ThisWorkbook.FullName)
End Function

فقط يه مورد اينكه نمي خوام آخرين تغييرات همون فايل رو نشونم بده ميخوام بهش آدرس بدم مثلا اين فايل رو آخرين تغييراتش رو با اين مسير نشونم بده
مثلا مسير زير

کد:

\\B-server\e.p.dep\Industrial engineering\Tolid-info\program.xlsx

سلام،
یقیناً و بدون شک شما پاسخ این سؤال خودتون رو هم پیدا نمودید
ممنون و موفق باشی عزیز!
فقط جواب خودتون را برای استفاده دیگران قرار بدید

**mohamadali110** · 2015/01/05, 08:43

نوشته اصلی توسط حسام بحرانی

سلام،
یقیناً و بدون شک شما پاسخ این سؤال خودتون رو هم پیدا نمودید
ممنون و موفق باشی عزیز!
فقط جواب خودتون را برای استفاده دیگران قرار بدید

نه متاسفانه هنوز نتونستم به دو تا از سوالات خودم جواب بدم

1-

قط يه مورد اينكه نمي خوام آخرين تغييرات همون فايل رو نشونم بده ميخوام بهش آدرس بدم مثلا اين فايل رو آخرين تغييراتش رو با اين مسير نشونم بده
مثلا مسير زير

2-

چطوري ميتونم اطلاعات مربوط به Accesses فايل رو درج كنه