|
|
Viết bởi: tuanta1986 24-10-20, 04:13 PM Chuyên mục: Forms - Bài trả lời (4) |
|
|
Viết bởi: yamakashi2003 23-10-20, 11:51 PM Chuyên mục: Report - Bài trả lời (4) |
|
|
Viết bởi: Minh Tiên 23-10-20, 10:15 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (2) |
Dim TenFile As String: TenFile = CurrentProject.Path & "\ThuNghiem.xlsx"
Dim TenSheet As String: TenSheet = "DaTa"
Dim Ex As Object
Dim Wb As Object
Dim Ws As Object
Set Ex = GetObject("", "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set Ex = CreateObject("Excel.Application")
End If
If Dir(TenFile) = "" Then
Set Wb = Ex.Workbooks.Add 'Tao WorkBook moi
Set Ws = Wb.Worksheets("Sheet1")
Ws.Name = TenSheet
Wb.SaveAs FileName:=TenFile
Else
Set Wb = Ex.Workbooks.Open(TenFile) 'Mo WorkBook co san
End If
For Each Sheet In Wb.Worksheets
If Sheet.Name = TenSheet Then
Set Ws = Wb.Worksheets(TenSheet) 'Mo Sheet co san
Exit For
Else
Wb.Worksheets.Add.Name = TenSheet ' Tao Sheet moi voi ten TenSheet
Set Ws = Wb.Worksheets(TenSheet)
End If
Next
Wb.Close SaveChanges:=True
Set Ws = Nothing
Set Wb = Nothing
Set Ex = Nothing
|
|
Viết bởi: mrtoanbin 22-10-20, 10:16 PM Chuyên mục: Query - Bài trả lời (3) |
|
|
Viết bởi: toidjtjmtoi 21-10-20, 05:31 PM Chuyên mục: Forms - Bài trả lời (3) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,357 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 153 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 161 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,138 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 184 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 665 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 188 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 642 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,618 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 289 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |