Bảng giá vàng thế giới trong excel (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

locphat6899

Thành viên mới
Tham gia
14/1/08
Bài viết
18
Được thích
1
Mình đang bị sếp giao cho việc là phải chuyển bảng giá vàng thế giới trực tuyến vào trong excel giống như import external data.Bạn nào biết xin chỉ giáo dùm mình trang web nào và như thế nào thì tiện nhất.Xin cảm ơn
 
Cách làm của tôi
Data->Import External Data->New Web Query...->Import->Trong khung Address-> nhập địa chì http://bariavungtau.com/index.php?category=107->go->New Worhsheet->ok
Còn cách cập nhật thì ... chưa biết
 
Cách làm của tôi
Data->Import External Data->New Web Query...->Import->Trong khung Address-> nhập địa chì http://bariavungtau.com/index.php?category=107->go->New Worhsheet->ok
Còn cách cập nhật thì ... chưa biết
cảm ơn bạn.Nhưng mà nó không nhảy giá vàng online
Bác nào biết chỉ giáo dùm em không sếp đuổi việc em mất
 
Cách làm của tôi
Data->Import External Data->New Web Query...->Import->Trong khung Address-> nhập địa chì http://bariavungtau.com/index.php?category=107->go->New Worhsheet->ok
Còn cách cập nhật thì ... chưa biết

Nếu như trang web này có thông tin về giá vàng thế giới thì sau khi làm như bạn nhatthai xong, phải ấn nút import, chọn vị trí cần đặt dữ liệu. Sau đó muốn cập nhật thì chỉ cần click chuột phải lên vùng dữ liệu và chọn refresh Data (dĩ nhiên là phải kết nối internet).

Do mình không nắm các trang web nào có thông tin về giá vàng thế giới, tuy nhiên mình thay thế bằng tỷ giá ngoại tệ của vietcombank. bạn xem thử file đính kèm. Test thử động tác cập nhật nhé.
 

File đính kèm

Lần chỉnh sửa cuối:
Nếu như trang web này có thông tin về giá vàng thế giới thì sau khi làm như bạn nhatthai xong, phải ấn nút import, chọn vị trí cần đặt dữ liệu.
Sau đó muốn cập nhật thì chỉ cần click chuột phải lên vùng dữ liệu và chọn refresh Data (dĩ nhiên là phải kết nối internet).

Do mình không nắm các trang web nào có thông tin về giá vàng thế giới, tuy nhiên mình thay thế bằng tỷ giá ngoại tệ của vietcombank. bạn xem thử file đính kèm. Test thử động tác cập nhật nhé.
Cách khác để lèm mới dữ liệu truy vấn:
Để tạo cập nhật cho truy vấn web này thường xuyên, sau khi nhấn nút import, chọn vị trí cần đặt dữ liệu xong bạn hãy chọn nút properties... bạn đánh dấu kiểm vào :
-Enable Background refresh : Làm mới lại dữ liệu ở chế độ nền
-Refresh every : Làm mới lại dữ liệu sau thời gian bạn định sẵn
-Refresh data on file open : Làm mới lại dữ liệu khi bạn mở file
Còn các tùy chọn khác trong External data Range properties rất hữu ích khi bạn sử dụng chức năng này, bạn tìm hiểu thêm nhé
 
Mình đang bị sếp giao cho việc là phải chuyển bảng giá vàng thế giới trực tuyến vào trong excel giống như import external data.Bạn nào biết xin chỉ giáo dùm mình trang web nào và như thế nào thì tiện nhất.Xin cảm ơn

Thực ra có nhiều phần mềm or web hiện giá vàng trên đó luôn rồi(có cả chart 1'-1hour-1day).
Or nếu bạn muốn lấy kết quả giao dịch cũng ok.
Vấn đề là bạn chuyển vào để làm gì??
http://www.kitco.com/charts/livegold.html
đây là biểu đồ giá vàng, ai biết thì import vào cho lôcphat6899
 
Lần chỉnh sửa cuối:
Thực ra có nhiều phần mềm or web hiện giá vàng trên đó luôn rồi(có cả chart 1'-1hour-1day).
Or nếu bạn muốn lấy kết quả giao dịch cũng ok.
Vấn đề là bạn chuyển vào để làm gì??
http://www.kitco.com/charts/livegold.html
đây là biểu đồ giá vàng, ai biết thì import vào cho lôcphat6899
Thấy biểu là chuyển vào excel nhằm để tính biến động giá theo cách riêng biệt,mà quan trọng là phải đưa được giá trực tuyến vào cái đã(Nó mới chỉ là ý tưởng)
 
Thấy biểu là chuyển vào excel nhằm để tính biến động giá theo cách riêng biệt,mà quan trọng là phải đưa được giá trực tuyến vào cái đã(Nó mới chỉ là ý tưởng)
http://www.bloomberg.com/markets/commodities/cfutures.html
các bác vào trang này gần cuối có một dòng ghi luôn giá vang đó.
còn import chắc phải nhờ cào thủ cái này mình thấy nhiều lần nhưng chưa biết làm.
Mình gửi 1 file mẫu kiểu đó để ai biết thì giúp cho locphat 68.
 

File đính kèm

File đính kèm

Bạn làm như thế nào vậy, mình nghĩ nếu có thêm 1 nút refresh nữa thì hay.

Mình nghĩ không cần nút refresh làm gì. Click chuột phải và chọn refresh data là xong. Còn nếu bạn muốn thì record macro động tác refresh này, sau đó tạo một nút command và gán macro vừa tạo vào tình huống click nút.
 
Chào bạn ca_dafi,

Trong access2003, thì mình làm như thế nào như trong excel?

Mình nghĩ không cần nút refresh làm gì. Click chuột phải và chọn refresh data là xong. Còn nếu bạn muốn thì record macro động tác refresh này, sau đó tạo một nút command và gán macro vừa tạo vào tình huống click nút.
 
Thì đây, như bài hướng dẫn bên dưới của mình. Các bạn xem file đính kèm nhé.
Cảm ơn bạn rất nhiều.Trong quá trình tìm kiếm mấy trang giao dịch vàng thế giới thì mình tìm được đường link này www.apmex.com.Trang này hiện luôn giá giao dịch của TG bao nhiêu là trong êxcl của mình hiện luôn bấy nhiêu,rồi mình dùng giao diện của bạn kết hợp với trang đó rồi trình lên sếp,sếp khen nức nở.Thanks
http://apmex.com/
 
Trong access2003, thì mình làm như thế nào như trong excel?

Mình nghĩ không cần nút refresh làm gì. Click chuột phải và chọn refresh data là xong. Còn nếu bạn muốn thì record macro động tác refresh này, sau đó tạo một nút command và gán macro vừa tạo vào tình huống click nút.

Chào bạn,
Mình chưa hiểu ý bạn. đối tượng trong Excel và Access khác nhau hoàn toàn nên công việc trên cũng không giống nhau. Hiện tại mình không rành về access nên chưa biết cách insert một web data vào access như thế nào!

Tuy nhiên cách mình làm theo file bên dưới có thể cũng là một cách. Vẫn là click chuột phải và chọn refresh data! Nhưng khác với excel, bạn phải double click vào vùng chứa data.
 

File đính kèm

Lần chỉnh sửa cuối:
Bảng giá Chứng khoán online trong excell

MỘT GỢI Ý CHO BẠN (CẢ VỀ THIẾT KẾ LẪN CÁI NÚT REFRESH THEO YÊU CẦU NHÉ)
Chào tất cả mọi người.

http://210.245.87.192:8080/RealTime/RealTimeStocks2.aspx
http://www.apec.com.vn/
đây là một trang web xem giá chứng khoán.
Mình đang làm một bảng excell trong đó giá của các cổ phiếu tự update như giá vàng (mà các bạn đã làm) vào Data/Import external data/new web query nhưng không được.
Mong các huynh đệ trợ giúp.
Thanks
p/s: Các trang web khác có giá Ck:
http://www.hsx.vn/
 
Lần chỉnh sửa cuối:
Chào tất cả mọi người.

http://210.245.87.192:8080/RealTime/RealTimeStocks2.aspx
http://www.apec.com.vn/
đây là một trang web xem giá chứng khoán.
Mình đang làm một bảng excell trong đó giá của các cổ phiếu tự update như giá vàng (mà các bạn đã làm) vào Data/Import external data/new web query nhưng không được.
Mong các huynh đệ trợ giúp.
Thanks
p/s: Các trang web khác có giá Ck:
http://www.hsx.vn/
Mình có một số file trước đây tự update được nhưng bây giờ không chạy được nữa, mình up ở link dưới để các bạn nghiên cứu dùm.
thanks
 

File đính kèm

Mình có một số file trước đây tự update được nhưng bây giờ không chạy được nữa, mình up ở link dưới để các bạn nghiên cứu dùm.
thanks

Món này có vẻ khoai, Mình còn một file nữa đang thất lạc để tìm rồi up lên để các Bác tham khảo.
Thanks all
 
Tạo Bảng excell có giá CK tự update

Món này có vẻ khoai, Mình còn một file nữa đang thất lạc để tìm rồi up lên để các Bác tham khảo.
Thanks all
Để tạo bảng excell có giá chứng khoán tự update chắc dùng kết hợp cả VBA, chứ đơn thuần hàm trong êxcll chắc không được.
 
Giá vàng KITCO theo VNĐ/chỉ luôn đây.
'Giá vàng TG (VNĐ/CHỈ) = Giá đô la bán ra của VCB * Giá 1 Troy ounce trên KITCO /( 31.1034768/3.75)
 

File đính kèm

Giá vàng KITCO theo VNĐ/chỉ luôn đây.
'Giá vàng TG (VNĐ/CHỈ) = Giá đô la bán ra của VCB * Giá 1 Troy ounce trên KITCO /( 31.1034768/3.75)
- Lâu quá mới lại có người vào trả lời, mừng quá;;;;;;;;;;;

- Giá vàng trong file mà Bác đưa chỉ tương đối thôi, còn phụ thuộc vào nhiều thứ lắm (Chi
phí nhập khẩu, vận chuyển, gia công...tỷ giá đồng việt Nam..) (với cả cách Bác ađd giá vào như thế là vầo Data/ impor... cách này đầu thread có hướng dẫn rồi)
Ở đây tôi muốn nói về viết VBA để tự ghi giá biến đổi trong 5 p tự ghi lại và nhẩy xuống dòng dưới để ghi tiếp....(Cái này có thể áp dụng cho ghi chứng khoán việt Nam trong ngày...)

Hôm nay định hỏi mọi người về VBA tự động update giá bên thread " Hỏi đáp về VBA" tối lên tìm lại không thấy đâu. Không biết MOD nào xóa và vì sao.

- Nay gưi lại không biết Bác nào am hiểu về VBA quá bộ ngang qua có thể giải thích sơ qua ý nghĩ các hàm, nếu không có thể giới thiệu sách nào đó để tra cứu.
Xin cảm ơn.


Sub WebQueryVDSC()
Dim URLData As String
Dim Qry As QueryTable
URLData = "URL;http://price2.vdsc.com.vn:8080/hose/hose.vdsc" & ""
For Each Qry In WkbXemCK.Sheets("Temp").QueryTables
If Qry.Name = "ho_web_giaodien" Then
Qry.Connection = "" & URLData
End If
Next
End Sub
 
Lần chỉnh sửa cuối:
Chưa thuộc đường đi lối tắt đi loanh quanh hỏi sai chỗ bị các mod delete bài,
Vừa hỏi lại tìm nguyên nhân sao bị xóa thì nhận ngay được quả thư cảnh cáo
[COLOR=#22229c đã viết:
You have received an infraction at Giải Pháp Excel[/color] by BNTT]
Thân gửi myhan,

Bạn đã bị cảnh cáo tại Giải Pháp Excel.
.....
Thư cảnh cáo này sẽ có giá trị 1 điểm và có thể sẽ ảnh hưởng đến việc truy cập diễn đàn của bạn cho đến khi cảnh cáo hết hiệu lực. Nếu bạn vi phạm Nội quy nhiều lần hay các qui định cấm thì Tài khoản của bạn sẽ bị khoá vĩnh viễn.
.....
Trân trọng,
Giải Pháp Excel

- Việc các Bác Mod quản lý xóa bài tôi nghĩ chắc cũng vì muốn diễn đàn gon gàng ngăn lắp, Tôi không có ý kiến gì.
- Thiết nghĩ nếu có thể thì đối với bài của một số thành viên mới (Do chưa quên đường đi lối lại). Khi câu hỏi không đúng thì các bác có thể nhắc nhở, và move bài vào nơi quy định. Chứ không nhất thiết phải xóa. Vì thực ra rất nhiều người không biết cách sử dụng các công cụ tìm kiếm.


Em đang mầy mò tìm cách tạo một bảng excell ghi lại giá CK, hoặc gold sau biết động 45s. Hiện đang gặp một số lỗi trong quá trình làm. Các Bác kiểm tra giúp Em hộ xem sai code ở đâu, Em ngồi check mà mãi không tìm ra.(file Em attach under)
Các Bác xem hộ tại sao code VBA em viết ở đó lại không chạy.
Mục đích code đó là Em copy dữ liệu từ sheet này qua sheet kia.

Cám ơn các Bác.
 

File đính kèm

Lần chỉnh sửa cuối:
Chưa thuộc đường đi lối tắt đi loanh quanh hỏi sai chỗ bị các mod delete bài,
Vừa hỏi lại tìm nguyên nhân sao bị xóa thì nhận ngay được quả thư cảnh cáo

- Việc các Bác Mod quản lý xóa bài tôi nghĩ chắc cũng vì muốn diễn đàn gon gàng ngăn lắp, Tôi không có ý kiến gì.
- Thiết nghĩ nếu có thể thì đối với bài của một số thành viên mới (Do chưa quên đường đi lối lại). Khi câu hỏi không đúng thì các bác có thể nhắc nhở, và move bài vào nơi quy định. Chứ không nhất thiết phải xóa. Vì thực ra rất nhiều người không biết cách sử dụng các công cụ tìm kiếm.


Em đang mầy mò tìm cách tạo một bảng excell ghi lại giá CK, hoặc gold sau biết động 45s. Hiện đang gặp một số lỗi trong quá trình làm. Các Bác kiểm tra giúp Em hộ xem sai code ở đâu, Em ngồi check mà mãi không tìm ra.(file Em attach under)
Các Bác xem hộ tại sao code VBA em viết ở đó lại không chạy.
Mục đích code đó là Em copy dữ liệu từ sheet này qua sheet kia.

Cám ơn các Bác.

Tại sao phải refresh sau 45s mà không phải là 1 phút?. Nếu thời gian refresh nâng lên là bội số của 1 phút thì bạn không cần viết code, sau khi import data từ trang web ra excel, click chuột phải lên vùng data vừa import vào --> chọn Data Range Properties. rồi tùy chỉnh thông số Refresh every:

attachment.php
 

File đính kèm

  • 13-10-2008 5-49-56 PM.jpg
    13-10-2008 5-49-56 PM.jpg
    15.6 KB · Đọc: 514
Việc thêm thông số đó để tạo thêm tùy chon cho người sử dụng.
Nếu không cần thì có thể làm như Bác thì chắc sẽ nhẹ đi nhiều.
Bác đã xem hộ Tôi file ở dưới chưa
 
Việc thêm thông số đó để tạo thêm tùy chon cho người sử dụng.
Nếu không cần thì có thể làm như Bác thì chắc sẽ nhẹ đi nhiều.
Bác đã xem hộ Tôi file ở dưới chưa

1/ Public WkbXemCK As Workbook
Tìm không thấy file WkbXemCK
2/SumSymbol = WkbXemCK.Sheets("ck1").Cells(7).Value
Cells(7) cấu trúc phải là Cells(iR,iC)
3/ NewCell1 = "E" & sumsbol & ""
sumsbol là gì có phải là SumSymbol

Vài dòng trước mắt vậy đã.
 
1/ Public WkbXemCK As Workbook
Tìm không thấy file WkbXemCK
2/SumSymbol = WkbXemCK.Sheets("ck1").Cells(7).Value
Cells(7) cấu trúc phải là Cells(iR,iC)
3/ NewCell1 = "E" & sumsbol & ""
sumsbol là gì có phải là SumSymbol

Vài dòng trước mắt vậy đã.
Cám ơn Bác. Em đã làm theo và đã chạy được rồi.(file em gửi dưới)

Bác cho hỏi thêm trong file em đã không đặt WkbXemCK As Workbook mà thay tại câu lệnh luôn là workbooks("wkbxemck.xls").sheet(4).cells(a,b)
Nhưng nếu đặt như vậy mà đổi tên file thì marco sẽ không chạy luôn.
Có cách đặt code nào mà đổi tên file thì marco vẫn chạy không Bác.

Thanks.
 

File đính kèm

Cám ơn Bác. Em đã làm theo và đã chạy được rồi.(file em gửi dưới)

Bác cho hỏi thêm trong file em đã không đặt WkbXemCK As Workbook mà thay tại câu lệnh luôn là workbooks("wkbxemck.xls").sheet(4).cells(a,b)
Nhưng nếu đặt như vậy mà đổi tên file thì marco sẽ không chạy luôn.
Có cách đặt code nào mà đổi tên file thì marco vẫn chạy không Bác.

Thanks.
Thêm câu vào đầu code
Dim SourceWb As Workbook
Set SourceWb = ThisWorkbook

Lúc đó câu lệnh
workbooks("wkbxemck.xls").sheet(4).cells(a,b)
sẽ là
SourceWb.sheet(4).cells(a,b)
Hay bạn bỏ luôn chỉ cần
sheet(4).cells(a,b)
Lưu ý là chỉ mở 1 file thôi. Trong fox hay dùng Close all khi chạy ứng dụng.
Tôi chỉ hiểu tới vậy.
 
Chưa thuộc đường đi lối tắt đi loanh quanh hỏi sai chỗ bị các mod delete bài,
Vừa hỏi lại tìm nguyên nhân sao bị xóa thì nhận ngay được quả thư cảnh cáo

- Việc các Bác Mod quản lý xóa bài tôi nghĩ chắc cũng vì muốn diễn đàn gon gàng ngăn lắp, Tôi không có ý kiến gì.
- Thiết nghĩ nếu có thể thì đối với bài của một số thành viên mới (Do chưa quên đường đi lối lại). Khi câu hỏi không đúng thì các bác có thể nhắc nhở, và move bài vào nơi quy định. Chứ không nhất thiết phải xóa. Vì thực ra rất nhiều người không biết cách sử dụng các công cụ tìm kiếm.


Em đang mầy mò tìm cách tạo một bảng excell ghi lại giá CK, hoặc gold sau biết động 45s. Hiện đang gặp một số lỗi trong quá trình làm. Các Bác kiểm tra giúp Em hộ xem sai code ở đâu, Em ngồi check mà mãi không tìm ra.(file Em attach under)
Các Bác xem hộ tại sao code VBA em viết ở đó lại không chạy.
Mục đích code đó là Em copy dữ liệu từ sheet này qua sheet kia.

Cám ơn các Bác.

Bạn nên tạo một hàm bắt hàng cuối cùng của sheets đích rồi điền lần lượt thông tin mới nhất vào là ổn đấy
 

Bài viết mới nhất

Back
Top Bottom