קישור VB ל- EXCEL
שלום, יש לי תוכנית VB, אני פותחת קובץ EXCEL ויש לי שתי שאלות: 1. כיצד אפשר לאמר לו לפתוח קובץ חדש אם לא קיים עדיין ? 2. כיצד לפתוח את הקובץ בעברית ולא באנגלית ? (כאשר נכנסים ל-EXCEL רגיל, זה בעברית). אם אני כותבת "גליון1" בפתיחת הגליון אני מקבלת הודעת שגיאה: out of range. תודה. שורות הקוד שלי הן: Dim xlApp As Excel.Application Dim wb As Workbook Dim ws As Worksheet Dim var As Variant Set xlApp = New Excel.Application Set wb = xlApp.Workbooks.Open("d:\amr\kuku.xls") Set ws = wb.Worksheets(1") ws.Range("A1").Value = Form1.Date.Text
שלום, יש לי תוכנית VB, אני פותחת קובץ EXCEL ויש לי שתי שאלות: 1. כיצד אפשר לאמר לו לפתוח קובץ חדש אם לא קיים עדיין ? 2. כיצד לפתוח את הקובץ בעברית ולא באנגלית ? (כאשר נכנסים ל-EXCEL רגיל, זה בעברית). אם אני כותבת "גליון1" בפתיחת הגליון אני מקבלת הודעת שגיאה: out of range. תודה. שורות הקוד שלי הן: Dim xlApp As Excel.Application Dim wb As Workbook Dim ws As Worksheet Dim var As Variant Set xlApp = New Excel.Application Set wb = xlApp.Workbooks.Open("d:\amr\kuku.xls") Set ws = wb.Worksheets(1") ws.Range("A1").Value = Form1.Date.Text