vba data to input tool
public Sub InserDb()
dim maxrow as integer
dim maxcol as integer
dim ddl as string
dim recode as string
dim recodes as string
dim sheetname as string
dim tablename as string
sheetname = "data"
tablename = sheets(sheetname).cells(1,2).value
maxrow = sheets(sheetname).cells(rows.count,1).end(xlup).row
maxcol = sheets(sheetname).cells(2,columns.count).end(xltoleft).column
for i = 1 to maxcol
if i = 1 then
ddl = sheets(sheetname).cells(2,i).value
else
ddl = ddl + "," + sheets(sheetname).cells(2,i).value
end if
next
for j = 3 to maxrow
for k = 1 to maxcol
if k = 1 then
recode = "(" & "'" & sheets(sheetname).cells(j,k).value & "'"
else
if sheets(sheetname).cells(j,k).value = "" then
recode = recode & "," & "NULL"
else
recode = recode & "," & "'" & sheets(sheetname).cells(j,k).value & "'"
end if
end if
next
sheets("output").cells(j-1,1).value = "insert into" & tablename & "(" & dll & ")" & "values" & recode + ");"
next
sheets("output").cells(1,1).value = "TRUNCATE" & tablename & ";"
sheets("output").select
end sub
vba data to input tool的更多相关文章
- sc.textFile("file:///home/spark/data.txt") Input path does not exist解决方法——submit 加参数 --master local 即可解决
use this val data = sc.textFile("/home/spark/data.txt") this should work and set master as ...
- golang illegal base64 data at input byte
//one reason is whitespace ciphertext = strings.Replace(ciphertext, " ", "", -1) ...
- PatentTips - Data Plane Packet Processing Tool Chain
BACKGROUND The present disclosure relates generally to systems and methods for providing a data plan ...
- DATA VISUALIZATION – PART 2
A Quick Overview of the ggplot2 Package in R While it will be important to focus on theory, I want t ...
- What is Data Driven Testing? Learn to create Framework
What is Data Driven Testing? Data-driven is a test automation framework which stores test data in a ...
- [LeetCode] Data Stream as Disjoint Intervals 分离区间的数据流
Given a data stream input of non-negative integers a1, a2, ..., an, ..., summarize the numbers seen ...
- jquery判断多个input输入框不能输入相同的值
function checkName(data){ //校验联系信息不能一致 var values=""; $(".t").each(function(i,it ...
- TRANSPOSE的DATA步实现
data a; input name $ a b ; cards; x x x y y y ; run; %macro transpose; proc sql noprint ; select cou ...
- Leetcode: Data Stream as Disjoint Intervals && Summary of TreeMap
Given a data stream input of non-negative integers a1, a2, ..., an, ..., summarize the numbers seen ...
随机推荐
- Unity中使用百度中文语音识别功能
下面是API类 Asr.cs using System; using System.Collections; using System.Collections.Generic; using Unity ...
- DBNavigator1 按钮标题中文 提示中文
http://bbs.2ccc.com/topic.asp?topicid=74320 怎么将DBNavigator显示时是中文标题 来源:本网整理 如何将DBNavigator显示时是中文标题? ...
- javaScript之数组操作方法(一)
本篇文章主要总结了几个简单的数组操作方法.数组就是一组数据的集合,接下来我们就了解一下几种数组的操作方法. 1. join方法:把数组的所有元素放入一个字符串.举例如下: var arrJoin=[& ...
- Django知识总结(二)
拾 ● 模型(M) 一 ● ORM(对象关系映射, Object Relational Mapping) 类----一张表 类的实例对象----表中的一条记录 映射关系 ①python的类名对应的SQ ...
- 配置jQuery环境
获取最新版jQuery 一.jq库类型说明 jQuery.js(开发版):完整无压缩,主要用于学习.开发和测试 jQuery.min.js(生产版):主要用于产品开发和项目 二.在页面引入 <s ...
- dom编程艺术笔记1--第二章
第二章语法部分: 1.js注释:<!-- XXXXX 而“-->”这部分js会认为是注释内容的一部分 2.var 声明变量 不用声明变量类型 3.声明使用一个数组语法:var object ...
- while循环与 for循环,函数定义与调用
import turtle turtle.setup(600,400,0,0) turtle.bgcolor('red') turtle.color('yellow') turtle.fillcolo ...
- io 的一些简单说明及使用
io 流简述: i->inputStream(输入流) o->outputStream (输出流) IO流简单来说就是Input和Output流,IO流主要是用来处理设备之间的数据传输, ...
- wpf binging (六)多绑定
场景 比如我用四个textbox 需要每个控件都输入正确的数据以后 下方的 button才变成可用状态 需要把四个textbox的值转换成 true或者false 效果
- Java的URL类(二)
转:https://www.cnblogs.com/brokencolor/p/8575440.html Java的URL类(二) 实例: Java 通过HttpURLConnection Post方 ...