券商对照—通过交易流水计算资金、持仓、盈亏与自动理财

龚非

一位炒股朋友求助，如何用excel计算自己账户的每一笔买卖，与券商对照是否一致。接入券商网址读取账户交易信息难度太大，我也不会。索性做一个简单的，自己记录每一笔操作即可。
券商账户资金余额每日盘后自动理财，由于实际为浮动利率，收益计算存在误差，请高手赐教完善!

iuulove

谢谢楼主，辛苦了。

hypz

下载了打开看了下，简单描述下看法
优点：
1，目前手里找到的股票交易表格，这是见到的第一个可以选择配股、中签、分红、送股这些的，一下就覆盖了常见股票情况
2，借贷选择，对非财务专业来说，我第一眼没太看明白啥意思。不过会根据操作选择来自动匹配，感觉也挺好

缺点：
1、对于持仓的股票，点更新的那个向下箭头，提示类型不匹配，不懂什么意思

轩尼狮

非常感谢楼主的分享,咨询几个问题,起始资金如何设定,而且感觉盈亏和流水跟券商的交易端数据核对不上

可能还是数据录入自己操作的问题

龚非

轩尼狮 发表于 2020-6-27 10:17
非常感谢楼主的分享,咨询几个问题,起始资金如何设定,而且感觉盈亏和流水跟券商的交易端数据核对不上

可 ...

资金转入转出还是在流水表，起始资金就是转入吧。差异估计是理财收入计算有误吧。快一年了没更新，不知道原来那位朋友持仓没动没有，现在盈利不少啊。

轩尼狮

感谢回复.现在闷闷摸索明白了一点,但是更新的时候
r1 = Range("b" & Rows.Count).End(xlUp).Row
l1 = Cells(2, Columns.Count).End(xlToLeft).Column

If r1 > 10 Then Range(Cells(11, 2), Cells(r1, 5)).ClearContents
Set xrg = Sheets("交易流水").Range("a1").Resize(r, l)
  xaddress = xrg.Address(0, 0)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
  strsql = "select distinct 账户,代码,名称 from [交易流水$" & xaddress & "] where 代码 is not null order by 账户,代码"
    rst.Open strsql, conn, adOpenKeyset, adLockOptimistic
      n = rst.RecordCount

提示最新价和收盘价,不能更新,RecordCount这个代码的最后一句提示编译错误

轩尼狮

hypz 发表于 2019-9-14 16:18
下载了打开看了下，简单描述下看法
优点：
1，目前手里找到的股票交易表格，这是见到的第一个可以选择配 ...

更新错误的问题,你解决了没有?谢谢

轩尼狮

就是持股明细里面,价格自动获取部分

龚非

轩尼狮 发表于 2020-6-28 09:54
就是持股明细里面,价格自动获取部分

工具-引用，检查下ActiveX控件打钩了没

龚非

去掉理财的